Все категории

4 года назад

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.ПАСКАЛЬ ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Знания

Информатика

1 ответ:

Viktoria9546 [7]4 года назад

0 0

Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
end.

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

Вывести на экран n первых степеней числа k. Например: при вводе чисел n=3,k=5 На экране должно появиться: степень: 1, результат:

Kondor270 [4]

var n,k,s:integer;

begin

s:=1;

write ('Введите число: ');

readln(k);

write ('Введите степень: ');

readln(n);

for n:=1 to n do

begin

s:=s*k;

writeln('степень: ',n,' результат: ',s)

end

end.

0 0

4 года назад

Найти количество совпадений. Одни и теже совпадения дважды не считать (Python) 7 file1 4 450 17 54 17 55 68 120 68 120 68 140 68

supernetik

Решение на скринах.

0 0

1 год назад

Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнение. Делфи или Паскаль

дронго1982 [7]

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.

Результат
False
True

Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.

0 0

2 года назад

составить программу вычисления произведения первых 7 натуральных чисел

Лукина

var

i, e : Integer;

begin

e := 1;

for i := 1 to 7 do

e := e * i;

Writeln(e);

end.

0 0

4 года назад

Укажи, в каком виде представлена информация в следующем примере: объявление в газете об аренде недвижимости Для ответа используй

Jijok [50]

Визуальная!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0 0

4 года назад