Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пользоветель-это система их бывает много есле создать.
програмист-это человек который создает программу
рrogram summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s=а+в+с
write(' сумма равна ',s);
readln
в принципе все, должно быть правильно
program fasf;
var
n,q: integer;
begin
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
end.
а если число
var n,i,p: integer;
s: string;
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
Популярные вопросы