Хотя бы некоторые из них. Буду ооочень благодарен:
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.
________________________________________________________
Мне хотя бы некоторые из вышеперечисленных. Буду очень признателен Вам. Заранее спасибо.
Ответы
Ответ дал:
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
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
Ответ дал:
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;
l := a
else if (b < a) and (b < c) then
l := b
else if (c < a) and (c < b) then
l := c;
Ответ дал:
0
l - наименьшее
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад