Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s,n,i: integer;
begin
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
end.
попробуйте так (turbo pascal):
program 1;
var s: string;
c: integer;
write('vvedite nazvaniye zhivotnogo');
read(s);
writeln('vvedite kolichestvo syedennyh gribov');
readln(c);
writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');
формула имеет вид: =b$1*$a2
program chislo;
var x: integer;
z,y : real;
readln(x);
y: =5.5;
z: = x-y;
writeln(z);
при запуске программы вводите эти значения и тестируете.
Популярные вопросы