1)var i,sum:integer;
begin
sum:=0;
i:=45;
while (i<=115) do begin
sum:=sum+i;
i:=i+1;
end;
writeln( 'Сумма = ', sum );
<span>end.
</span>2)var i:integer;
<span>begin
i:=2;
while (i<=150) do begin
If (i mod 2=0) and (i mod 13=0) then
writeln(i);
i:=i+1;
end;end.
3)</span>var c,A,i,N:integer;
begin
write('Введите целое число (N>0) N = ');read(N);
write('Введите целое число A = ');read(A);
c:=1;
i:=1;
while (i<=N) do begin
c:=c*A;
i:=i+1;
Writeln('A в степени ',i,' := ',c);
end;<span>end.</span>
Ответ:
program s_2;
var a, b: real
;
begin
writeln ('Пожалуйста введите 1 и 2 число>>')
;
readln ( a,b )
;
if a>b ;
then a:= a-10
;
else b:= b*2
;
writeln ('Ответ')
;
writeln ('Первое число = ', a)
;
writeln ('Второе число = ', b);
Объяснение:
алгоритм как перейти дорогу
1.) подойти к перекрестку.
2.) посмотреть на светофор.
3.) посмотреть налево направо
(убедиться что машины прошли).
4.) начать движение, проходить проходить.
5.) зайти на ступень другого края дороги.
<u>Pascal:</u>
program loop;
var a,s:real;
begin
While s < 100 do
begin
readln(a);
s:= s+a;
end;
end.
<u>-----------------------------</u>
<u>Python:</u>
s = 0
while s < 100:
s += float(input())
<u>-----------------------------</u>
<u>Блок-схема:</u>
<u>"Приложил скриншот" см. ниже:</u>
Program nau;
var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
readln (a[i,j]);
end;
k:=a[1,1];
for i:= 1 to 4 do
for j:= 1 to 4 do
if a[i,j]>k
then k:=a[i,j];
writeln ('наибольший элемент массива = ',k);
<span>end.</span>
