Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
рrogram summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s=а+в+с
write(' сумма равна ',s);
readln
в принципе все, должно быть правильно
б,в,г,е - лцд остальное к трубке
var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Популярные вопросы