Напишите программу на языке Паскаль: Даны целые числа K и N (N >0). Вывести N раз число K. Вычисление суммы чисел от 6 до 10. прошу пожалуйста помогите
Answers & Comments
estengseant
1) Программа выводит N раз число K: var k,n,i: Integer; begin writeln('Введите k'); readln(k); writeln('Введите n'); readln(n); for i:=1 to n do writeln(k); end.
2) Сумма чисел от 6 до 10: var a,sum: Integer; begin for a:=6 to 10 do begin Inc(sum,a); end; writeln(sum); end.
Answers & Comments
var k,n,i: Integer;
begin
writeln('Введите k');
readln(k);
writeln('Введите n');
readln(n);
for i:=1 to n do writeln(k);
end.
2) Сумма чисел от 6 до 10:
var a,sum: Integer;
begin
for a:=6 to 10 do
begin
Inc(sum,a);
end;
writeln(sum);
end.