Хотя бы некоторые из них. Буду ооочень благодарен: 1. Написать ** Паскале программу для...

0 голосов
32 просмотров

Хотя бы некоторые из них. Буду ооочень благодарен:

1. Написать на Паскале программу для вычисления суммы всех натуральных чисел в интервале от 100 до 200
2. Написать на Паскале программу для вычисления суммы: S=2+4+6+8+...+2*N, где N вводиться с клавиатуры
3. Что будет выведено на экран в результате след. программы, если N было присвоено значение 4.
Program prim;
Var N,S,i enteger;
Begin read(N); S:=0;
For i:=1 to N do
S:=S+2*I;
Write(S)
End

5. Какие из слов могут быть идентификаторами в Паскале (может быть неск. ответов): 123prim, БАК_12, slon_1, begin
6. Написать на Паскале программу для вычисления из трёх заданных целых чисел.
7. Что будет выведено на экран после выполнения след. программы:
Program my;
Var a,b,c:integer;
begin;
a:=5;
b:=a+10;
if a+b>20 then c:1 else
if b=15 then c:=2 else c:=3;
write(c)
end.

________________________________________________________

Мне хотя бы некоторые из вышеперечисленных. Буду очень признателен Вам. Заранее спасибо.


Информатика (21 баллов) | 32 просмотров
Дан 1 ответ
0 голосов

1) 
sum = 0;
for i:= 100 to 200 do sum:=sum+i;

2)
readln (N);
sum:=0;
for i:=1 to N do sum:=sum+i*2;

3)
20

5)
slon_1

6)
вычисления чего?

7)
2

(502 баллов)
0

Спасибо за ответы) Вычисления меньшего числа. Прошу прощения

0

readln (a); readln (b); readln (c); if (a < b) and (a < c) then
l := a
else if (b < a) and (b < c) then
l := b
else if (c < a) and (c < b) then
l := c;

0

l - наименьшее