Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.
10-11 класс
|
var
i, summ:integer;
begin
for i := 1 to 50 do
if i mod 10 = 3 then
summ := summ + i;
writeln('Summ = ', summ);
end.
var
s,i:integer;
begin
for i := 1 to 50 do begin
if i mod 10 = 3 then
s := s+i;
end;
writeln(s);
end.
Другие вопросы из категории
(Приложение, №2), построить круговую диаграмму, отражающую затраты на посадочный материал ягодных культур - крыжовника, земляники, малины и черной смородины...
Затраты на посадку 1 га садов и ягодников в центральных областях России в 1980 г.
program sbb;
uses crt;
var
i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
end;
writeln
end;
поверхности, суммы ребер прямоугольного параллелепипеда.
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале
Например: если я ввожу 2 должно выйти март