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

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

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

4 года назад

6

Помогите пожалуйста вообще хз что это)

Помогите пожалуйста вообще хз что это)

Информатика

1 ответ:

Everlost4 года назад

0 0

Ответ:

2000, 2016 и 800

Объяснение:

% это деление по модулю(остаток от деления)

! это не

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

Прошу решить подробно и обьяснить тем самым как это делается:). 1. Сколько раз выполнится тело цикла во время выполнения фрагмен

аркан [6]

Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)

0 0

4 года назад

Помогите пожалуйста, кто разбирается)

мах2004

1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15

0 0

4 года назад

1)Стороны прямоугольника параллельны осям координат.Одна из вершин имеет координаты (0,0),координаты противоположной вершины зад

Kitas [7]

1)

var

x,y,s:real;

begin

readln(x,y);

s:=abs(x*y);

writeln(s:8:2);

end.

2)

var

a:integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else writeln("нечетное число")ж

end.

0 0

4 года назад

Создать программу которая запрашивает значение вещественного числа X и выводит на экран сумму и разность X 100

Anton Cazac [50]

Program oji;
var x,c,b:real;
begin
writeln ('Введите дробное число');
readln (x);c:=x+100;
writeln (x,'+',100,'=',c);
b:=x-100;
writeln (x,'-',100,'=',b);
end.
<span>На пожалуйста!))))</span>

0 0

1 год назад

Срочно! Помогите, пожалуйста Даны два различных числа a и b .Если a меньше b, то вычислить их произведение a*b, в противном случ

emmasim [6.3K]

Var a, b, rezultat: integer;

begin

writeln(`Введите значения a и b:`);
readln(a, b);

if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b

writeln(rezultat);

end.

0 0

3 года назад