Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Джойстик, геймпад, клавиатура зависит от игры
Мышь - ввод информации
Клавиатура - ввод
Монитор - вывод
Системный блок - мне кажется не корректно стоит вопрос, если учитывать все железо в нем, то он собирает информацию от устройств ввода и выводит проводя вычисления свои или обработку