Дано натуральное число n. составьте программу, которая выводит все числа от 1 по n, у которых последняя цифра кратная 3

161

358

Посмотреть ответы 2

Ответы на вопрос:

lazmax2000

Информатика

4,6(38 оценок)

Program n1; var n,p,i: integer; begin write('введите n: '); readln(n); for i: =1 to n do begin p: = i mod 10; if (p mod 3=0) and (p< > 0) then write(i,' '); end; end.

egordyachenko

Информатика

4,5(21 оценок)

Var a,b,c: integer; d: array [1..20] of integer; begin randomize; for a: =1 to 5 do begin d[a]: =random(-100,100); if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a]) else writeln('нечётный элемент массива ==> ',d[a]); end; end.