В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Nastya165567
Nastya165567
19.03.2021 12:34 •  Информатика

Составить программу Турбо Паскаль Работающий светофор на середине экрана

Показать ответ
Ответ:
маша2521
маша2521
04.01.2022 04:56
//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.
0,0(0 оценок)
Ответ:
katyaaaasd
katyaaaasd
27.06.2020 17:00
Function IsEqual(n:longint):boolean;
{ возвращает True, если первая и последняя цифры числа равны }
var
  s:string;
begin
  Str(n,s);
  IsEqual:=(s[1]=s[Length(s)])
end;

var
  k:longint;
begin
  Write('Введите натуральное число '); Read(k);
  Write('Первая и последняя цифры введенного числа ');
  if not IsEqual(k) then Write('не ');
  Writeln('совпадают')
end.

Тестовые решения:
Введите натуральное число 15342403
Первая и последняя цифры введенного числа не совпадают

Введите натуральное число 745370007
Первая и последняя цифры введенного числа совпадают
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота