Втаблице dat хранятся данные измерений среднесуточной температуры за неделю в градусах (dat[1] – данные - id165868820220219 от Ляляляля109 19.02.2022 01:12

Question

Информатика: Втаблице dat хранятся данные измерений среднесуточной температуры за неделю в градусах (dat[1] – данные за понедельник, dat[2] – за вторник и т. определите, что будет напечатано в результате выполнения следующего алгоритма var k, m, day: integer; dat: array[1..7] of integer; begin dat[1]: =7; dat[2]: =9; dat[3]: =10; dat[4]: =8; dat[5]: =6; dat[6]: =7; dat[7]: =6; day: = 1; m: =dat[1]; for k: =2 to 7 do begin if dat[k] m then begin m: =dat [k]; day: =k end end write(day); end.

Ляляляля109 · Accepted Answer

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.

MOGZ ответил