ПАСКАЛЬ: надрукуйте двозначні числа кратні 15. Визначте їх кількість та суму.
10-11 класс
|
Відповідь у файлі:::::::::::::::::::::::::::::::::
Другие вопросы из категории
абсолютной погрешностью 10^-4
программа паскаль
и еще нужна блок схема
Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами.
Pascal ABC
в массиве a1,a2...a50 найти произведение чисел меньших или равных 2
подошёл трамвай №5 содержит 3 бита информации. сколько маршрутов трамваев останавливается на данной остановке
Читайте также
признакам делимости.
program chislo;
uses crt;
var a,b,c,d,e,f,g:integer;
begin
clrscr;
f:=1;d:=0;
writeln('Введите число ');
readln(a);
e:=a;
while e>9 do begin
b:= e mod 10;
f:=f+1;
d:=d+b;
e:= e div 10;
end;
g:=e+d;
writeln('Число ',f,' - значное');
if a mod 2<>0 then writeln('Число нечетное') else writeln('Число четное');
c:=b mod 10;
if (c=0) or (c=5) then writeln ('Число кратно 5') else writeln ('Число не кратно 5');
if (c=0) then writeln('Число кратно 10') else writeln('Число не кратно 10');
if g mod 3=0 then writeln('Число кратно 3') else writeln('Число не кратно 3');
if g mod 9=0 then writeln ('Число кратно 9') else writeln('Число не кратно 9');
end.
определить, верно ли, что данное число кратно 3.
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
заполнен случайными числами от -15 до 6. Все , числа кратные 3 заменить на противоположные.
Массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. Вывести полученный массив на экран в строчку. Найти индекс наибольшего элемента массива.