1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
Свойство такое, что а), в), г) - арифметические прогрессии, б) - геометрическая.
Графические файлы:
fami-ly.jpg, car.bmp, dog.gif
<span>const
r=6350;
var
h,l: real;
begin
write('Введите значение высоты h (км): ');
readln(h);
writeln('До линии горизонта ',sqrt(sqr(r+h)-sqr(r)):0:3,' км');
readln;
end<span>.</span></span>
1.При первом выполнении тела цикла i=1
2. 9 раз
3. Цикл с предусловием
4. var n: integer;
for n:=1 to 26 do
writeln(sqr(n));
5. for i:=34 downto 3 do
writeln(i)