3 года назад

Выполни циклический алгоритм

Знания

Информатика

1 ответ:

Tatiana Markina3 года назад

0 0

Надо соединить 11-12 8-7 3-4 10-11 6-5 10-9

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

Установите соответствие: 8 бит 1024 байта 2 байта 2048 Кбайт a) 2 Мбайта б) 1 байт в) 1 Кбайт г) 16 бит

Ангел1980

1 Кбайт- 1024 байта.
2 Мбайта- 2048 Кбайта

0 0

4 года назад

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

4159351

CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END

0 0

4 года назад

Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Входные данные Задано единственное целое число

jakovec03 [179]

Var n,i,j: integer;
begin
 write('n = '); readln(n);
 j:=Trunc(sqrt(n));
 for i:=1 to j do write(i*i,' ');
end.

n = 100
1 4 9 16 25 36 49 64 81 100

0 0

4 года назад

СРОЧНО!!!Друзья Дима, Саша, Витя и Стас занимались различными видами спорта: футбол, хоккей, баскетбол и фигурное катание. Извес

Nutsfun

Хоккей

0 0

4 года назад

Найти среднее арифметическое всех элементов массива, которые делятся на 5

VofkinS

const n=10;

var a:array [1..n] of integer;

i,s,k:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (16);

write (a[i],' ');

if a[i] mod 5 = 0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)

else writeln ('Элементов массива, которые делятся на 5, нет.')

end.

0 0

2 года назад