anasteysh1520
Опубликовано 7 месяцев назад по предмету Информатика от anasteysh1520

Помогите пожалуйста с задачами по информатике

  1. Ответ
    Ответ дан elenaklon
    PascalABCNET1.var a,b,c,i:integer;beginfor i:=100 to 999 dobegina:= i div 100;b:= i mod 100 div 10;c:= i mod 10;if (a+b+c) mod 3 = 0 then writeln(i)end;readlnend.2.var a,b,c,d,i:integer;beginfor i:=1000 to 9999 dobegina:= i div 1000;b:= i mod 1000 div 100;c:= i mod 1000 mod 100 div 10;d:= i mod 10;if (a+d) mod 5 = 0 then writeln(i)end;readlnend.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос