Запишите все двузначные десятичные числа , каждое из которых в 10 раз больше суммы своих цифр

Знания

Информатика

1 ответ:

Anatoly543 [12]4 года назад

0 0

Это числа, которые делятся на 10: 10, 20, 30, ..., 90.

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

Файл размером 20 кбайт передаётся через некоторое соединение со скоростью 1024 бит в секунду. Определите на сколько секунд быстр

Joraill

Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд

0 0

1 год назад

Помогите составить программу, которая организует ввод массива a[1..10] с клавиатуры, затем преобразовывает массив, заменяя все о

Данил Варущенко [7]

Var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
begin;
write('Введите ',i,' элемент массива:');
readln(ar[i]);
if ar[i]<0 then ar[i]:=abs(ar[i]);
end;
writeln('Final array:');
for i:=1 to 10 do
write(ar[i]:4);
<span>end.</span>

0 0

1 год назад

Как перевести 7 в 8 за 4 шага. 1ая команда +5; 2ая команда :2; И ещё Как перевести 4 в 55 за 5 шагов. 1ая команда *5; 2ая команд

ТЕА - Елена

7+5=12
12:2=6
6+3=9
6-1=8

4*5=20
20-3=17
17*3=51
51+4=55

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Изменить общее оформление слайдов презентации можно, изменив:А. тему В.анимацию. С.шрифты. D.эффекты

greenday

)))))))))ответ D((((((((((((((

0 0

2 года назад

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

В массив сохранены результаты выполнения контрольной работы: 1)Подсчитать количество пятёрок 2)Определить средней балл за к/р 3)

Egor123456

Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.

0 0

4 года назад