Abc pascal выручайте! кто шарит решите! прогой ! решите хотя бы 1 1.найти все трёхзначные числа у которых сумма цифр a- ,а само число делится на b. a и b-набираются с клавиатуры! 2.дано четырёхзначное число найти сумму цифр этого числа 3.дано трёхзначное число найти количество чётных цифр этого числа. 4.найти в делителе трёхзначное число. 5.дан массив из 25 элементов. найти сумму нечётных эл. 6.дан массив из 20 эл. подсуньте полные элементы массива значение которых больше числа a и кратным 5.
Юшут
1
30.06.2019 11:20
3
Другие вопросы по теме Информатика
sashaStreet1
05.05.2020 12:12
alekshaino
05.05.2020 12:13
лёха1920
05.05.2020 12:13
sinitsadmitrij
05.05.2020 12:11
bogdanlinchenk
05.05.2020 12:10
sasha17210
05.05.2020 11:56
Кюнечка
05.05.2020 11:55
Рикания
05.05.2020 11:55
Популярные вопросы
- 1. Какое количество теплоты выделится при полном сгорании 1 тонны сухих...
1 - НАРИСОВАТЬ НОВЫЙ ГОД НА А4 ...
1 - 3. Match the definitions to the words piece of rock or metalthat has...
1 - Здравствуйте ответит на вопросах What can you see in the garden? What...
1 - Проблема мировой безработицы не может быть устранена. Согласны ли вы...
2 - 2. Ядра элементов алюминия A1, кальция sa, цинка Zn, йода Что такое заряд...
1 - соч ал Рускому Сформулируйте и запишите основную мысль текста. Запишите...
3 - ПОПС-формулу на тему: «Возможна ли игра с судьбами людей?» (по содержанию...
2 - ЖАЗЫКТЫКТАР МЕН ТАУЛАРДЫН ОРНЛАСУ ЗАНДЫЛЫГЫ СРЧНОО КАЗАКСТАН ТАРИХЫ 5...
1 - выберите правильно утверждение ...
1
var
n: longint;
k,s: integer;
j:integer;
begin
s:=0;
j:=0;
write('вв число > ');
readln(n);
k:=n;
while n>0 do begin j:=j+1;s:=s+n mod 10;
writeln( n mod 10);
n:=n div 10;
end;
writeln('сумма цифр числа= ',s);
readln;
end.