Вопрос по информатике:
помогите написать задачи на Pascal
1.выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4
2.Найти НОД двух целых чисел.
- 04.03.2015 09:09
- Информатика
- remove_red_eye 3445
- thumb_up 49
Ответы и объяснения 1
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a0) and (b0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
- 05.03.2015 20:02
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.