Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
Ответ:
var x,y,i:integer;
begin
y:=-7;
for i:=1 to 39 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
var x,y:integer;
begin
y:=-7;
repeat
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
until y>107
end.
var x,y:integer;
begin
y:=-7;
while y<=107 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
жесткий диск - хранение данных
ноутбук - серфинг по сети, хранение данных, электронная почта и т.п.
роутер - передача данных
жесткий диск - хранение данных
телефон - передача данных, общение
колонки (динамики) - прослушивание звуковых данных
монитор - получение визуальных данных
клавиатура, сканер, мышь, веб-камера - ввод данных
принтер - печать данных
и т.п.
Подойдёт?
Решение:
input a$
input b$
if a$ > b$ then print b$,a$
if a$ < b$ then print a$,b$