1)
Var
i,n:integer;
begin
n:=0;
i:=0;
while i<>100 do begin
i:=i+1;
n:=n+i;
end;
writeln(n);
end.
2)
Var
i,n:integer;
begin
n:=0;
i:=0;
repeat
I:=i+1;
n:=n+i;
until i=100;
writeln(n);
end.
3)
Var
i,n:integer;
begin
n:=0;
i:=0;
For i:=0 to 100 do
n:=n+i;
writeln(n);
end.

0 0

4 года назад

Паскаль номер 5 пожалуйста

vit6z6

Var x,y:integer;
begin
readln(x,y);
if (x>0) and (y>0) then writeln('I');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV');
end.

Надеюсь на "Лучший ответ"

0 0

3 года назад

Написать качества фоторедактора

шведов

Удобно и быстро работать получать большие деньги и подделовать фото

0 0

3 года назад

Прочитать ещё 2 ответа

3. Какое из высказываний является истинным: a. Для того чтобы число делилось на 3, достаточно, чтобы его последняя цифра делилас

jaja75

b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр

0 0

3 года назад

Прочитать ещё 2 ответа