Pascal. Помогите решить.Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифр шести?

Знания

Информатика

1 ответ:

Chron1 год назад

0 0

Var b,a1,a2,S:integer;
Begin
readln(b); {вводим 2-ух значное число}
a1:=b div 10;
a2:=b mod 10;
S:=a1+a2;
if s mod 6=0 then writeln('Кратно') else writeln('не кратно');
readln;
end.

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

Сопоставьте название инструментов графического редактора Inkscape с ихназначением.♡♡♡♡♡♡♡♡♡♡♡

Markosha76

Ответ:

1) 4; 2) 6; 3) 1; 4) 5; 5) 2; 6) 8; 7) 9; 8) 3; 9) 7.

0 0

4 года назад

Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных

YanaDV

Var i,n,nmb: integer;
 dg,sm: real;
begin
 sm:=0; nmb:=0;
 write('n = ');
 readln(n);
 write('числа через пробел: ');
 for i:=1 to n do
 begin
 read(dg);
 if dg<0 then
 begin
 sm:=sm+dg;
 nmb:=nmb+1;
 end;
 end;
 writeln('сумма отрицательных чисел = ',sm);
 writeln('среднее арифметическое = ',sm/nmb);
end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА .составить любой словесный и графический алгоритм нахождение наибольшего из двух чисел

terpsihora [1]

var

a,b:integer;

begin

writeln('Введите два числа');

readln(a,b);

if a>b then

writeln ('Первое число больше , то есть',a, ')

else

writeln ('Второе число больше , то есть',b, ');

end.

0 0

3 года назад

Что такое world art

Zak01

это переводится как мировое исскуство

0 0

4 года назад

Прочитать ещё 2 ответа

Двоичное число записано в виде многочлена 1*2^4+ 1*2^2+ 1*2^0 какой вид имеет число в двоичной и десятичной записи?

vadim007

1*2^4+1*2^2+1*2^0 = 10101(2)
1*2^4+1*2^2+1*2^0 = 16+4+1 = 21(10)

0 0

4 года назад