решите 17 задачу . надо написать . программу в паскале. циклическая задача.
5-9 класс
|
var a,b,c:integer;
t:real;
begin
t:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if (a mod 2=0) and(b mod 2 =0)then
begin
for c:=1 to a*b do
begin
t:=t+c;
end;
end
else begin
for c:=1 to 10 do
begin
t:=t+sqr(c-a);
end;
t:=t/b;
end;
writeln(t);
end.
Другие вопросы из категории
Катя, 13, хоккей, баскетбол, футбол, 15, 11, Коля, 11, танцы, Сережа.
2)Сложить и вычесть шестнадцатиричные числа
6А и 2В; 98 и 3А
Читайте также
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
Изображение только перевернуть надо
1. Написать программу нахождения произведения n чисел.