Написать на pascal 1.выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4 2.найти нод двух целых чисел.
vikalavrlavr
2
18.05.2019 23:20
4
Другие вопросы по теме Информатика
konstontinopols
25.06.2020 06:01
MrGowno
25.06.2020 14:13
батя160
09.09.2019 01:00
lizakocirbenck
09.09.2019 01:00
marceries
16.10.2020 10:35
Рауза1951
16.10.2020 10:35
Adashok
16.10.2020 10:36
alinamagutina
16.09.2019 06:40
Roman4ik1207
07.09.2019 21:40
Популярные вопросы
- Дано м-(naoh)=60 найти n=(na) n-(oh)...
2 - Постройте биссектрису ма в треугольнике мnk. с циркуля....
3 - Определить молярную массу эквивалента металла, для восстановления 17 г оксида...
1 - Втреугольнике авс ав=с,вс=а,ас=b,aa1=m-медиана треугольника авс.выразите аа1...
3 - Раскройте скобки: 1the weather (be) bad today. 2the weather (be) bad yesterday....
2 - Выпишите собственные имена существительные( 10 имён) из книг,которые сейчас читаете...
1 - Почитайте в назарете с. лагерлёфа, и ответьте : каким был иисус и иуда...
1 - Для калия работа выхода 1,92 эв. какова красная граница фотоэффекта для калия?...
3 - Нужен расказ на на тему путишествие за границу...
3 - Разложите на множители: x в 4 степени - 25y²...
2
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 (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.