Определите значение переменной s, полученное в результате работы следующей программы. текст программы - id294274920210316 от msSisi1 16.03.2021 07:22

Question

Информатика: Определите значение переменной s, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль алг нач цел s, k s : = 0 нцдля k от 6 до 12 s : = s + 5 кц вывод s кон dim k, s as integer s = 0 for k = 6 to 12 s = s + 5 next k print s vars,k: integer; begin s : = 0; for k : = 6 to 12 do s : = s + 5; writeln(s); end.

msSisi1 · Accepted Answer

Согласно первому заданию надо сначала найти максимальный элемент

uses crt;
var x,y,z,max:integer;

Begin
writeln('Введите x y z');
readln(x,y,z);
if (x>y) and (x>z)
then max:=x
else
if (y>x) and (y>z)
then max:=y
else max:=z;

Writeln('max =',max);
Writeln('Младший разряд =',max mod 10);
Writeln('Остаток от деления на 3 =',(max mod 10) mod 3);

readln;
end.

2)

var n: Integer;
Begin
writeln('Введите день недели');
readln(n);
write('Уроков ');

case n of
1-4: writeln('6');
5,6: writeln('5');
7: writeln('нет');

end;
End.

MOGZ ответил