№57922.
Условие задания:
Определите значение переменной 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.
Определяет является ли сумма чисел четной
Определяет являются ли оба числа нечетными
Определяет является ли хотя бы одно из чисел четным
Определяет являются ли оба числа четными
Определяет является ли сумма чисел нечетной
просмотры: 834 | информатика 10-11