М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Kskdnrntbrjdjdk
Kskdnrntbrjdjdk
30.01.2023 12:03 •  Информатика

Нарисуйте равнобедренный прямоугольный треугольник из звездочек высоты 50 при цикла на языке pascal.

👇
Ответ:
KaiBennet
KaiBennet
30.01.2023

begin

 var s: string;

 for var i := 1 to 50 do

 begin

   s := i * '*';

   Println(s)

 end

end.


Нарисуйте равнобедренный прямоугольный треугольник из звездочек высоты 50 при цикла на языке pascal.
4,5(20 оценок)
Открыть все ответы
Ответ:
olgaazov73
olgaazov73
30.01.2023

УВ 1:

Вначале у тебя а -5, а б-6.

Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.

И последнее: д=а+б=5+6=11

ответ:11

УВ 2:

А=3, б=2.1

Б<а? Да, меньше, т.к. 2.1 меньше 3

Значит выполним действие: напечатаем б, т.е.2.1

Затем в обязательном порядке напечатаем а, т.е.3

В итоге на экране напечатано будет:2.13

Ув3:

А,б,ц равны 3,4,5 соответственно

А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.

Иначе напечатолось бы сумма 3,4,5, т.е. 12

Ув4:

М=2

М >2?

Нет, не больше, значит м=м*м, т.е. 4

4,5(32 оценок)
Ответ:

Проверенные ответы содержат информацию, которая заслуживает доверия. На «Знаниях» вы найдёте миллионы решений, отмеченных самими пользователями как лучшие, но только проверка ответа нашими экспертами даёт гарантию его правильности.

{Задача сделана на языке паскаль, при Оформление сделана как для студенческой задачи

Если есть во пиши в личку

Задача:Написать программу на языке программирования Pascal, которая вводит с клавиатуры 4 числа и выводит результат вычисления спо следующей схеме: "число1"−"число2"/"число3"+"число4"

Автор:

Дата:  }

 var  x1, x2, x3, x4: integer;

f:real;

begin

//Ввод

writeln('введите 1 число');

readln(x1);  

writeln('введите 2 число');

readln(x2);  

writeln('введите 3 число');

readln(x3);  

writeln('введите 4 число');

readln(x4); //решение

f:=(x1-x2)/(x3+x4);  

//вывод

writeln (f);

end.

4,4(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ