Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
(неясно-пиши в личку)
рrogram summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s=а+в+с
write(' сумма равна ',s);
в принципе все, должно быть правильно
var
a,b: real;
readln(a,b);
if (a> 0) or (b< -2) then
writeln('истинно')
else
writeln('ложно');
Популярные вопросы