Составить блок схему и программу нахождения суммы удвоенных четных чисел в интервале от 15 до 90

Знания

Информатика

1 ответ:

severanochka [159]5 лет назад

0 0

Var k,summa:integer; begin for k:= 15 to 90 do if k mod 2 =0 then summa:= summa + 2*k; writeln(summa); end.

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

Напишите программу в Паскале, которая получает три числа и выводит количество натуральных одинаковых чисел в этой цепочке.пример

masteroftracklist...

Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.

0 0

4 года назад

Помогите сделать 5-7 задания

Мангл

Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ

0 0

4 года назад

Приведите по одному примеру истинного и ложного высказываний

Taweki

Истинное высказывание:
12+24=36
Ложное высказывание:
16+10=23

0 0

4 года назад

Чему равно высказывание A : «87 — положительное число».A = 87A = 0все ответы верныенет верного ответаA = 1

вениамин смирнов [7]

Ответ:

Объяснение:

Высказывание А истинно, поэтому его значение - истина. Которую, в частности, обозначают константой 1.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите пожалуйста!Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

lira-lirika

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

begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000

0 0

4 года назад

Прочитать ещё 2 ответа