помогите кто может !!! хелп
5-9 класс
|
1)program z1;
var
a:array[1..5]of integer;
i,s,j,n:integer;
begin
n:=0;
s:=0;
for i:=1 to 5 do
begin
read(a[i]);
if a[i]>=0 then
begin
s:=a[i] mod 4;
j:=(a[i]-8) mod 10;
end else
begin
s:=a[i] mod -4;
j:=(a[i]+8) mod -10;
end;
if (s=0) and (j=0) then n:=n+1;
end;
writeln('Чисел которые оканчиваются на 8 и делятся на 4: ',n,' штук ');
end.
2)program z2;
var
Другие вопросы из категории
Unicode в одно новое сообщение, которое при этом увеличилось на 240 байт. Какова длина каждого из исходных сообщений в символах?
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
Читайте также
с краями рабочего поля.Начальное положение Муравья - левый верхний угол рабочего поля.СРОЧНО НУЖНО ПОМОГИТЕ КТО МОЖЕТ !
"или",то есть дизьюнкция(сложение). Прошу,помогите,кто в теме...
данное.
а)Определит ьдлину текста.
б)Определить количество букв "b" в нем.
в)Вывести самое длинное слово.
2)Дано предложение. Найти, в каком из слов, состоящего из более чем четырех символов, буква "а" встречается чаще.
По большей части интересует задание 1-в и 2. Буду очень благодарен!!!
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может