Program Znanija;
var a,b,c:integer;
begin
Write('Введите a');
Read(a);
Write('Введите b');
Read(b);
c:=a+b;
Write(c);
end.
Инструмент для обработки данных
инструмент для хранения информации
средство передачи данных
1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы
Uses Crt;
var
n:integer;
begin
repeat
textcolor(15);
Write('n='); Read(n);
if n=0 then begin
textcolor(LightGreen);
Writeln('Работа завершена');
textcolor(15);
end
else
if (n>9) and (n<100) then begin
n:=n-10;
Writeln('Результат: ',n)
end
else
if (n>99) and (n<1000) then begin
n:=n-100;
Writeln('Результат: ',n)
end
else begin
textcolor(LightRed);
Writeln('Недопустимое значение');
end;
until n=0;
ReadKey { для PascalABC.NET можно удалить эту строку }
end.