Выполнить в программе Geany.Паскаль.Пожааалуйста) Задача 1. Вывести на экран последовательность из N чисел (N задаётся пользователем): 5, -10,
5-9 класс
|
15, -20,
25, …
Использовать цикл for и условие в нём.
Задача 2.Найти сумму чисел от 1 до 100, кратных 7. Кратность находим при помощи операции mod
program chik;
var n,i,p:integer;
begin
read(N);
p:=0;q:=1;
for i:=1 to n do
begin
p:=p+5;
q:=q*-p;
write(q,' ');
end;
end.
2)
program chik2;
var s,i:integer;
begin
s:=0;
for i:=1 to 1000 do
if(i mod 7=0)then s:=s+i;
write(s);
end.
1)
program test;
uses crt;
var
n,i,c:integer;
begin
clrscr;
write('Input n ');readln(n);
for i:=1 to n do
begin
c:=c+5;
if i mod 2 = 0 then
write(-1*c,' ')
else
write(c,' ');
end;
readln;
end.
2)
program test;
uses crt;
var
sum,i:integer;
begin
clrscr;
for i:=1 to 100 do
if i mod 7 = 0 then
begin
write(i,' ');
sum:=sum+i;
end;
writeln;
writeln(sum);
end.
Другие вопросы из категории
в видеопамяти при палитре из 16 цветов256 цветов
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
На языке паскаль составить программу , выводящую на экран наименьшее из трех чисел.Программа должна выводить на экран результат в виде:Наименьшее из данных трех чисел=Значение.
натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи
Вывести на экран строчку из 10 единиц. Затем в этой же программе вывести на экран 5 строчек по 10 единиц. (нужно повторять цикл for)