angelina455
05.07.2020 20:31

Дано четырехзначное число. Вывести его цифры в порядке убывания. Очень .

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kiryushadautovp00tv7
03.04.2023 06:22
Вы можете уменьшить размер файлов и пространство на диске с сжатия рисунков в документе. параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. сжать можно все рисунки в файле или только специально выделенные. если документ сохранен в более старом формате doc, то параметр "уменьшить размер файла" не будет доступен в меню "файл". чтобы использовать параметр "уменьшить размер файла", сохраните документ в новом формате docx.
0,0(0 оценок)
Ответ:
Юлька1606
30.12.2020 21:54
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else 
write('Треугольник неравнобедренный');
end.

БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец

№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.

БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
   если i - нечётное, то
      прибавить к s
вывести  s
конец

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