Предмет: Информатика,
автор: gyekkkk
Составить программу на паскале:
Сколько вооскресений в 2016 году, если первое воскресение 3 января
умоляю, помогите
Ответы
Автор ответа:
0
var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
Похожие вопросы
Предмет: Математика,
автор: goldvladmir2018
Предмет: Биология,
автор: sweetkerry26
Предмет: Геометрия,
автор: mdemonskiy
Предмет: История,
автор: den1234ak47
Предмет: Алгебра,
автор: Аноним