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

4 года назад

Запиши количество текстом или соответствующим ему двоичным числом

Знания

Информатика

1 ответ:

Hermi [7.5K]4 года назад

0 0

Шестьдесят яблок
60 яблок.
Или, 1 - 001

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

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

Kolyngrad

Ответ не знаю просто баллы нужны, парень ссорян, ты первый попался просто

0 0

3 года назад

надо составить понятия! Понятия: дуб, растение, ясень, дерево, кустарник, малина, смородина. помогите пожалуйста!!!

A-021

растение

дерево кустарник

ясень смородина

дуб малина

0 0

4 года назад

Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О

andreifly [79]

Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>

0 0

3 года назад

Составьте программу к задаче на сумму всех двузначных чисел кратных 5.

sezix

ABC Паскаль
------------------
var
sum:longint;
begin
sum:=0;
// основной цикл
for var i:=3 to 19 do
begin
sum:=sum+5*i;
writeln (i*5);
end;
writeln('Сумма всех двузначных чисел кратных 5 = ',sum);
end.

0 0

4 года назад

Вывести в порядке убывания трёхзначные числа кратные 12, подсчитать из количество и произведение на Pascal

Игорь Ал [2K]

Ответ:

program Num12;

var

i, n, c: Integer;

p: Double;

begin

c := 0;

p := 1;

for i := 83 downto 9 do begin

n := i * 12;

Write (n, ' ');

Inc (c);

p := p * n;

end;

WriteLn;

WriteLn ('Количество = ', c);

WriteLn ('Произведение = ', p);

ReadLn;

end.

0 0

4 года назад