Program faceyourseif;
var x,k,i:integer;
g:boolean;
begin;
x := Random(100);
writeln(x);
writeln('Компьер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
repeat
writeln('Введите число');
read(k);
if k > x then
writeln('Не угадали! Загаданное число меньше');
if k < x then
writeln('Не угадали! Загаданное число больше');
if k = x then begin;
writeln('Поздравляю,вы угадали!');
g:=true;
end;
i:=i+1;
until g or (i=3);
end.
Ложные:
1. На картине изображено лето.
2. В центре картины изображен луг.
Дальше сама, думаю.
Истинные:
1. На заднем плане виднеются деревья.
2. Деревья на заднем плане покрыты снегом.
1)
Var
A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
Begin
WriteLn('Существует');
if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
else Write('Не является прямоугольным')
End
else WriteLn('Не существует')
End.
2)
Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.
Флеш-память, бумага, магнитная пленка
program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
