Задать вопрос!

Задать вопрос!

Все категории

4 года назад

7

Пожалуйста решите. Дано двузначное число. Определить больше ли 3-х сумма его цифр

Информатика

1 ответ:

marat270219694 года назад

0 0

Var
A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
if (A div 10) + (A mod 10) > 3 then WriteLn('Да')
else WriteLn('Нет')
End.

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

F=e^2*x+|2x+2| на языке qbasic

Антонина29 [7]

F

$= {e}^{2} \times x + |2x + 2|$

0 0

4 года назад

Известно, что a кг яблок стоит b рублей. Найдите, сколько стоит z килограммов яблок.

ololmi

А кг- b руб
z кг- ? руб
По свойству пропорции
?= (z*b ) /a руб.

0 0

3 года назад

Каеой объем видеопамяти необходим для хранения изображения при условии, что разрешающая способность дисплея равна 640х350 пиксил

caw80

Немного исправлю:

640 х 350= 224000

16 = = 4 бит

4 * 224000*2 = 1792000 бит = 224000 байт = 218,75 Кбайт

0 0

4 года назад

Составить программу проверки на четность введенного с клавиатуры числа

АлександрA [21]

program test;
var number: integer;

begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.

0 0

1 год назад

13.Ввести a и b (<100) и напечатать все числа от 1 до 100, кроме кратных a или b. 14. Найти, сколько чисел от a до b делятся

Яна кКк [38]

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.

3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>

0 0

4 года назад