Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Следуя алгоритму, можно понять, что каждый "виток спирали" будет закончен цифрой, на 1 большей, чем цифра, с которой он начинался. Значит, можно заметить, что по диагонали, проходящей через центральную клетку таблицы, из правого верхнего угла в левый нижний, будут только числа 11. Значит и закончится спираль числом 11.
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!
Using namespace std;
int main()
{
float a, b, c,sr;
cout<<"Input three numbers";
cin>>a>>b>>c;
sr=(a+b+c)/3;
cout<<"Average = "<<sr;
return 0;
}
Const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do
begin
writeln('элемент', i);
readln(a[i]);
if a[i] <> 0 then k:=k+1
end;
writeln(k)
end.