Составьте блок схему которая выводит на экран числа кратные 6 и 11 в диапазоне от 6 до 200?

Знания

Информатика

1 ответ:

elena galyutova [18]4 года назад

0 0

Ответ:

66,132,188-это все числа делящиеся на 6 и 11

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

Помогиет решить 1. Напишите программу, вычисляющую площадь прямоугольника. С клавиатуры вводятся два действительных числа - сто

Элина Алексеевна [7]

1. Var a, b, c:real; d:integer; Begin Readln(a, b) ; S:=a*b; Write(s) ; End. 2. Var a, b, c:real; d:integer; Begin D:=0; Readln(a); If (a>0) then d:=d+1; Readln(b) ; If (b>0) then d:=d+1; Readln(c>0) then d:=d+1; Write(d); End.

0 0

2 года назад

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

Mol6y [50]

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

begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.

Пример
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42

0 0

3 года назад

Вычислить для n=5 Y = X - X ^2 / 2 + X ^3 / 3 - ... + X ^N / N + ...; паскаль программа

Роза Зимняя [4.2K]

а есть картинка этого задание или опишите его нормально

0 0

3 года назад

Помогите!!! Очень надо для сессии!!! Натуральные числа, а,b,c называются числа Пифагора, если выполняется условие a²+b²=c². Напе

Ghjatccjh

{1}
var a,b,n:integer; c:real;
begin
read(n);
for a := 1 to n-1 do
for b := a to n-1 do
begin
c := sqrt(sqr(a) + sqr(b));
if c < n then
if c = trunc(c) then
writeln(a:3,' ',b:3,' ',c:3);
end;
end.

{2}
var n,i:integer; s,x:real;
begin
read(n);
s := 0;
for i := 1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
end.

0 0

3 года назад

Как называется процесс исправления ошибок в тексте

александр111213

Редактирование текста.

0 0

4 года назад