Задача 57922 Условие задания: Определите значение...

5fd8b8bdec9d2930a08975cb

16.02.2021 11:08:59

Условие задания:

Определите значение переменной y после выполнения данной программы:
Var x,y: integer;
Begin
x:=768;
if x mod 100>10 then y:=x mod 10
else y:=x div 100;
End.

Условие задания:

Выбери верный ответ.

Постановка задачи —

program n_4;
var x, a, b, c, s: integer;
begin
writeln ('Нахождение суммы цифр трёхзначного числа');
write ('Введите исходное число>>');
readln (x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln ('s= ', s)
end.

program polet;
var r, h,c: real;
begin
readln (r);
readln (h);
с:=2*pi*(r+h);
writeln (c);
end.

Вычислить 10-й член (a10) и сумму 10-ти членов (S10) арифметической прогрессии, если известно, что a1=35 и d=4.

Условие задания:

Реши пример: x = (88 + 441) / (56 + 30).
Дана программа на языке программирования Паскаль для решения данного примера. Заполни пропуски.

var
x:real;
begin
x:=(88 + 441)/(56 + 30);
writeln('x=',x:4:2);
readln;
end.

Условие задания:
Определите, какую задачу решает данных алгоритм:
Var x,y: integer;
Begin
read(x,y);
if (x+y) mod 2=0 then write('ДА')
else write ('НЕТ');
End.

Определяет является ли сумма чисел четной
Определяет являются ли оба числа нечетными
Определяет является ли хотя бы одно из чисел четным
Определяет являются ли оба числа четными
Определяет является ли сумма чисел нечетной

5ff1d32e960c3c35933d951f

16.02.2021 12:21:50

★

1) 8
2) 3
3) 3 (в окошке наверное нужно будет выбрать "х")
4)1 либо 2 поскольку сумма нечетных чисел - четна