Решать в PascalABC Это ОЧЕНЬ срочно!!!
10-11 класс
|
var x, y: integer;
begin
readln(x, y);
if (frac(x / 2) = 0) and (frac(y / 2) = 0) then writeln('Не виден. Закрывает гвоздь ', x/2, ';', y / 2)
else writeln('Виден');
end.
Это 3
Решіте хотябы 3 и 4 задачи! Я приму!
Другие вопросы из категории
.
Просто расставьте эти варианты) Пожалуйста)
В школе №1 учатся 250 человек, а в школе №2 учатся 300 человек, в школе №3 учатся 450 человек, в школе №4 учатся 400 человек.
фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do A[i]:=i;
for i:=0 to 4 do begin
k:=A[2*i];
A[2*i]:=A[2*i+1];
A[2*i+1]:=k;
end;
Чему будут равны элементы этого массива?
1) 5 6 7 8 9 0 1 2 3 4 10
2) 10 9 8 7 6 5 4 3 2 1 0
3) 0 1 2 3 4 5 4 3 2 1 0
4) 1 0 3 2 5 4 7 6 9 8 10
Чисто ответ мне не пишите, надо решение написать.
Читайте также
1. Вычислите выражение при заданных константах: A=16.5; b=3.4; x=0.61;
2.
Составить программу вычисления значения функции. На экран вывести функцию (записанную на Паскале) вместе с результатом.
у={a+b+cx^2,если 1<=x<2
(a*sin(xb))^2,если 2<=x<3
под корнем |a+bx^2|+c ,если 3<=x<4
a*ln|b+c/2x| ,если 4<=x<5
e^esinx+c^3 ,если 5<=x<6
Пожалуйста...