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.
Это какой класс? Можете сказать? И я может быть помогу
1. Природные ресурсы бывают исчерпаемыми и неисчерпаемыми
2. Продукты питания -животного и растительного происхождения
3. Олимпийские виды спорта - зимние и летние
4. Автомобили - современные и несовременные
5. Самолеты грузовые и пассажирские
6. Мобильные телефоны кнопочные и сенсорные
Ответ:
1) Ввести два числа, сложить, удвоить. Вывести ответ.
2) Ввести число, возвести в квадрат. Вывести ответ. Передайте автору учебника, что у квадрата по определению только ОДНА длина стороны. Сторон четыре, а размер - один.
Объяснение: