Malobandis
5 год назад
написать 3 программы : 1. На линейный алгоритм 2. На ветвление 3. На циклический алгоритм. Написать на языке программирования Паскаль.
ОТВЕТЫ
Elena
Oct 24, 2020
2)
Program g;
Var
a:integer;
begin
readln(a) ;
Begin
if a<0 then
Write(a*-1) end;
Begin
if a>0 then
Write(a*-1) end;
End.
3)
Program h;
Var
a, b:integer;
Begin
Readln(a) ;
Begin
While a<100 do
Begin
a:=a+1;
Write(a, ' ' ) end;
End;
End.
201
Смежные вопросы:
