Написать программы в Паскаль, хотя бы одну 1. Найдите наибольший общий делитель двух натуральных чисел
и выведите сообщение о его четности. 2. Напишите программу, которая в последовательности натуральных чисел находит сумму всех двузначных чисел, не меньших 50. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 5 (5 не входит в последовательность).
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Фролова Вероника
program prim; uses crt; var x,y:integer; begin writeln ('введите x,y'); readln (x,y); while x<>y do begin if x>y then x:=x-y else y:=y-x end; write ('НОД=',x); end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00