Ввести:клавиатура камера мышь сканер микрофон фотоаппарат usb
вывести:монитор динамик колонки принтер
Var x,k,m,n:integer;
begin
readln(k,m,n);
x:=0;
repeat
x:=x+1;
until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);
if x<100 then writeln(x) else writeln('Ошибка ввода');
end.
Пример:
0 3 6
48
Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.
program summa;
uses crt;
var N,a,s,i: integer;
begin
read(N); a:=0; s:=0;
for i:=1 to N do
begin
a:=a+1;
s:=s+(a*a);
end;
writeln(s);
end.
Данное решение основано на простом алгоритме деления данного числа на основание системы Ограничения для чисел (не более 9-тизначного числа)
Данное число и основание системы вводим в указанные ячейки
Недостаток программы: как убрать не значащие нули в ответе?