4 года назад

Решите пожалуйста упражнение 179. Мы его решили, записали в таблицу. А что писать в обоих пустых прямоугольниках? G и Y?

Знания

Информатика

1 ответ:

Hoolimor4 года назад

0 0

G 4 цыпочки Y 5 цыпочек G,Y 9

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

С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр числа. Помогите срочно прошу !!!!!

Александр262

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
 var d:=n mod 10;
 if d.IsOdd then p*=d;
 n:=n div 10
 end;
Writeln('Произведение нечетных цифр числа равно ',p)
end.

Пример
n= 53892
Произведение нечетных цифр числа равно 135

0 0

2 года назад

В результате реформы системы транспорта в городе были введены новые билеты на метро на1, 5, 10, 15 и 20 поездок. В таблице ниже

Ксения Чишкевич

Там все просто - пише и ответ ::))) а выписывать тебе - сложно
http://ru.numberempire.com/factoringcalc...

0 0

4 года назад

Помогите !!!!!!!!!! Срочно

катя20021

1.4 Гб

2.----------

3.примерно 500 кбайт

0 0

3 года назад

Вставь пропущенные слова: -это упрощенный заменитель реального обьекта

vikorys [20]

Модель- это упрощенный заменитель реального объекта. :3

0 0

3 года назад

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

Мария Яченко [7]

Ответ:

не знаю под чем ты подразумеваешь алгоритм, если это программа на паскаль то вот, нет ну тут уже сами справитесь, тут уж все разжевано

Объяснение:

program my;

var

i:integer;

bil:longint;

a:array [1..6] of integer;

begin

write('Введите номер билета');

readln (bil);

if (bil>999999) or (bil<100000) then begin

writeln('Введён неправильный номер');

end

else

for i:=1 to 6 do

begin

a[i]:=bil mod 10;

bil:=bil div 10;

writeln(a[i]);

end;

if (a[1]+a[2]+a[3])=(a[4]+a[5]+a[6]) then writeln('Вы выиграли')

else

writeln('Вы проиграли');

end.

0 0

4 года назад