Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
program xxx;
var n, c, d, e, s : integer;
begin
write('введите число');
readln(n);
c: = n div 100;
d: =(n div 10) mod 10;
e: = n mod 10;
s: = c + d + e;
writeln('сумма чисел =', s);
readln
end.
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x> 0 and y> 0 then
writeln (1 chetvert);
end;
if x< 0 and y> 0 then
writeln (2 chetvert);
if x< 0 and y< 0 then
writeln (3 chetvert);
if x> 0 and y< 0 then
writeln (4 chetvert);
иванов - парикмахер
петров - плотник
сидоров - мельник
гришин - почтальон
алексеев маляр
Популярные вопросы