Формула:
=ЕСЛИ(D122+E122+F122+G122=20;"сдал на отлично";ЕСЛИ(И(D122>3;E122>3;F122>3;G122>2);"сдал на хорошо и отлично";ЕСЛИ(И(D122>2;E122>2;F122>2;G122>2);"сдал";ЕСЛИ(И(D122+E122+F122+G122=8);"к отчислению";"не сдал"))))
1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
Ответ:
алг
нач
цел а,б
б:=0
ввод а
нц пока а > 0
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон