Помогите плиз.Срочно.3 и 6
Приложения:
Ответы на вопрос
Ответил xerex21
0
var a: integer;
begin
write('Введите а: ');
readln(a);
write('Результат: ');
if a<=0 then
write(sqr(a))
else
writeln('a>=0');
end.
var a,b,c: integer;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write((a=b) and (b=c) ? 'равны':'не равны' )
end.
begin
write('Введите а: ');
readln(a);
write('Результат: ');
if a<=0 then
write(sqr(a))
else
writeln('a>=0');
end.
var a,b,c: integer;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write((a=b) and (b=c) ? 'равны':'не равны' )
end.
Новые вопросы
География,
2 года назад
Литература,
2 года назад
Обществознание,
8 лет назад
География,
8 лет назад
Математика,
9 лет назад