Программа выведет два случайных числа на отрезке [1; N], если N >= 2, иначе "not enough pupils".
Код программы прикреплен.
Что такое информатика? Информатика — это основанная на использовании компьютерной техники дисциплина, изучающая структуру и общие свойства информации, а также закономерности и методы её создания, хранения, поиска, преобразования, передачи и применения в различных сферах человеческой деятельности. Термин "информатика" (франц. informatique) происходит от французских слов information (информация) и automatique (автоматика) и дословно означает "информационная автоматика". Широко распространён также англоязычный вариант этого термина — "Сomputer science", что означает буквально "компьютерная наука".
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
===== PascalABC.NET =====
begin
ReadlnString.Select(c -> 2 * c).Println('')
end.