Даны числа от 1 до n. Найти произведение чисел кратных 3 и оканчивающихся на 1.

Знания

Информатика

1 ответ:

Poligon0183 [24]4 года назад

0 0

var n,i,p:integer;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do
if (i mod 3 = 0)and(i mod 10 = 1) then p:=p*i;
writeln('p = ',p);
end.

Пример:
n = 80
p = 1071

Читайте также

Составить программу для вычисления значении функции у=2х ^3+1, х<4 у=3х^2-2, если х>=4

юлия томичка

Program z;
var x,y: integer;
begin
readln(x); if x < 4 then
y := 2 * (x * x * x) + 1
else y := 3 * (x * x) - 2;
writeln(y);
end.

0 0

1 год назад

If, then, else что это в паскаль АВС??

MaGy

Это служебные слова в этом, так сказать, "языке программирования" (не поворачиваются пальцы написать это без кавычек). Они там означают "ЕСЛИ", ТО" и "ИНАЧЕ" соответственно.

0 0

4 года назад

Информатика 6 класс задание 5 ДАМ 20 баллов

Кристи83

А где рисунок на странице 96

0 0

1 год назад

Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г и Д, решили использовать нерав

Алексей Вогулкин

Кратчайшее из них будет ноль

0 0

3 года назад

Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию F=(Zi+Ai)^(3/2) . Найти сумму дробных положительн

Анастасия601

program qwr;
uses crt; var f : real; i : byte; z,a : array [0..3] of real;
begin
 for i:=1 to 3 do
begin
write('z[ ',i,']= ');
 readln(z[i]);
end;
 for i:=1 to 3 do
 begin
write('a[ ',i,']= ');
readln(a[i]);
end;
 writeln(' ______________________');
 writeln(' Z[i] | A[i] | f ');
 for i:=1 to 3 do
 begin
f:=exp(ln(z[i]+a[i])*(3/2));
 writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.

0 0

1 год назад