Предмет: Информатика,
автор: noname132435
Составить программу: С клавиатуры вводится три числа. Определите является ли произведение этих чисел числом четным и кратным 4.
Ответы
Автор ответа:
0
var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.') else writeln('Произведение этих чисел не кратно 4.')
end.
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.') else writeln('Произведение этих чисел не кратно 4.')
end.
Автор ответа:
0
var
i: integer;
x, y: real;
begin
x := -3;
y := 0;
for i := 1 to 6 do
begin
y := 3 * power(x, 3-5);
if(y >= 0) and (y <= 3) then writeln('y=', y);
x := x + 1;
end;
end.
i: integer;
x, y: real;
begin
x := -3;
y := 0;
for i := 1 to 6 do
begin
y := 3 * power(x, 3-5);
if(y >= 0) and (y <= 3) then writeln('y=', y);
x := x + 1;
end;
end.
Автор ответа:
0
С клавиатуры вводится трехзначное чило
Автор ответа:
0
стооойте...простите. сейчас напишу
Автор ответа:
0
с клавиатуры вводится трехзначное число. Составить программу которая найдет разность цифр этого числа, стоящих в позиции единиц и сотен.
Автор ответа:
0
создай вопрос тогда решу.
Похожие вопросы
Предмет: Английский язык,
автор: musa3652
Предмет: Математика,
автор: kirsanovamaria0601
Предмет: Алгебра,
автор: raisamatrosova23
Предмет: Математика,
автор: 9077148
Предмет: Обществознание,
автор: Аnna16536753