Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 09:15
993
Паскаль1. Составить программу для нахождения наименьшего числа из трех.
2. Написать программу на языке программирования Паскаль, которая будет соответствовать следующей блок-схеме:

1
ответ
1 задание
begin
var m,a,b,c:integer;
println('Ввести 3 значения через пробел');
read(a,b,c);
m:=min(a,b);
m:=min(m,c);
print(m);
end.
2 задание
begin
var d,a, b, c: integer;
println('Ввести 3 значения через пробел');
read(a, b, c);
if(a < c) then
d := a;
if(b<c) then
a:=d;
d:=d+a;
print(d);
end.
begin
var m,a,b,c:integer;
println('Ввести 3 значения через пробел');
read(a,b,c);
m:=min(a,b);
m:=min(m,c);
print(m);
end.
2 задание
begin
var d,a, b, c: integer;
println('Ввести 3 значения через пробел');
read(a, b, c);
if(a < c) then
d := a;
if(b<c) then
a:=d;
d:=d+a;
print(d);
end.
0
·
Хороший ответ
4 апреля 2023 09:15
Остались вопросы?
Еще вопросы по категории Информатика
ЛАБОРАТОРНАЯ РАБОТА № 10
Работа с формами
1. Добавьте новое поле Портрет в таблицу Правонарушители.
- для этого откройте таблицу в р...
Рассчитайте время звучания моноаудиофайла^1, если при 16-битовом кодировании и частоте дискретизации 32 000 его объем равен 3500 Кбайт. ^1 Режим "Моно...
Для хранения текста в восьмибитовой кодировке требуется 10 Кбайт. Сколько страниц займет текст, если на странице размещается 40 строк по 64 символа в...
Дана программа. Введи данную программу в Паскаль. program perimetr_1; var a,b,p:real; begin a: = 9; b: = 9; p:=2*(a+b); writeln('p=',p:5:0) en...
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке...