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

3 года назад

(число<75) и не (число чётное)?

Знания

Информатика

1 ответ:

mistershadow3 года назад

0 0

73,71,69,67,65,63,61,59...

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

Как разгадать кроссворд хранение информации

Anidana [13]

Выучить все термины, предварительно изучив тему

0 0

4 года назад

Помогите пожалуйста с задачей по информатике Дано число. Найти сумму и произведение его цифр.

Илья-9864 [57]

Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.

Var a,s,s1:integer;

Begin

write('Введите число -> ');

readln(a);

s1:=1;

while a>0 do

begin

s:=s+(a mod 10);

s1:=s1*(a mod 10);

a:=a div 10;

end;

writeln('Сумма цифр числа равна -> ',s);

writeln('Произведение цифр числа равно -> ',s1);

End.

0 0

4 года назад

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

Дана последовательность 5,9,13,17... . Составьте блок-схему алгоритма для подсчета числа слагаемых, сумма которых равна 324.

Татьяна Брызгалова

Блок-схема во вложении

0 0

4 года назад

Статья, набранная на компьютере, содержит 8 страниц, на каждой стра¬ни¬це 40 строк, в каждой строке 64 символа. В одном из предс

Алёна_13

8*40*64*16=327680 бит

0 0

4 года назад

Дана сторона квадрата а. Составьте программу, которая будет вычислять его P и S и выводит на компьютер, написать программу

Ниночка85 [50]

var

a, p, s : integer;

begin

write('введите сторону квадрата a=');

readln(a);

p := a*4;

s := a*a;

writeln('периметр P=', p);

writeln('площадь S=', s);

end.

0 0

4 года назад

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

(число<75) и не (число чётное)?​

(число<75) и не (число чётное)?