задача на паскале: заполнить массив случ числами const n=5(через команду random) в интервале [1000;2000] и подсчитать число элементов, у которых вторая с конца цифра-четная. помогите пожалуйста)) понимаю что это через команды mod или div но догнать не могу
Предмет:
ИнформатикаАвтор:
messiahmlfuuses crt;vari, n, k: integer;mas : array [1..5] of integer;beginrandomize;n:= 5;for i:= 1 to n domas[i]:= random (1000)+1000;for i:= 1 to n dowrite (mas[i],' ');writeln;for i:= 1 to n do beginmas[i]:= mas[i] mod 100 div 10;if mas[i] mod 2 = 0 then k:= k+1;end;writeln (k);readkey;end.
Автор:
gregory71Добавить свой ответ
Одна машинистка печатает 10 страниц,за1 час,а другая за 5 часов печатает столько же,сколько первая за 4 часа.Сколько страниц напечатают обе машинистки за 3 часа совместной работы.
Предмет:
МатематикаАвтор:
trinitynrxfОтветов:
Смотреть
Найдите значения выражения: А)1,8+x при x=3:6,8;0,02;0. Б)4а при а=1;0,5;0. В)10-c при с=6;5,5;10;0. Г)2/3 y при у=1;1,5;9;10. ПОМОГИТЕ ПОЖАЛУЙСТА.
Предмет:
МатематикаАвтор:
cleo59Ответов:
Смотреть
Предмет:
ЛитератураАвтор:
edwin388Ответов:
Смотреть
Три покупателя А,Б,В КУПИЛИ В МАГАЗИНЕ ТОВАРЫ НЕСКОЛЬКИХ НАИМЕНОВАНИЙ.КАЖДОГО НАИМЕНОВАНИЯ ТОВАРОВ БЫЛО КУПЛЕНО ПО 4 ЕДИНИЦЫ.БОЛЬШЕ ВСЕХ ЕДИНИЦ ТОВАРОВ КУПИЛ ПОКУПАТЕЛЬ А-11,МЕНЬШЕ ВСЕХ-ПОКУПАТЕЛЬ В-7.СКОЛЬКО НАИМЕНОВАНИЙ ТОВАРОВ БЫЛО КУПЛЕНО?
Предмет:
МатематикаАвтор:
chewyptxnОтветов:
Смотреть