дополнить программу Нужно чтобы после окончания работы программа спросила :
"Желаете ли вы закончить работу?"
Program ploshad;
var a,b,c:real;
begin
write('Введите значение a= ');
readln(a);
write('Введите значение b= ');
readln(b);
If (a<=0)or(b<=0) then
write('Сторона не может быть отрицательной, либо равна нулю')
else
c:=a*b;
writeln('Площадь квадрата, с заданными параметрами равна - ',c);
c:=a*b/2;
writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);
repeat
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
print("Фигура может сделать ход")
else:
print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь
1.Дан фрагмент программы:
x:=52;
write ( 'ответ: ', х: 2,'км/ч');
После его выполнения на экран будет выведено:
2)ответ: 52км/ч
2.Укажите операторы вывода данных:
1)Write
4)Writeln
3.Целочисленным переменным a, b, c надо присвоить соответственно значения 10, 20 и 30. Какой оператор ввода соответствует входному потоку 30 20 10?
1)read (c, b, a)
4.Для ввода в оперативную память значений переменных используется оператор:
3)readln
5.Что будет выведено на экран после выполнения следующей программы:
begin
writeln (‘Hello, ’);
write (‘World!’)
end.
2)Hello,
World!
Вообще ошибку, потому что кавычки не правильные