Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
3 апреля 2023 06:44
510
Паскаль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
·
Хороший ответ
5 апреля 2023 06:44
Остались вопросы?
Еще вопросы по категории Информатика
Расставь содержимое ячеек в нужном порядке На рисунке представлена таблица «Список учеников».Определи,какие значения буду содержать ячейка диапазона А...
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i = 25 while i > = ...: &n...
package com.tetris.tetris;
import android.content.Intent;
import android.graphics.Color;
import android.os.Bundle;
import android.os.Handler;
i...
Дан фрагмент программы: А: =10; В: =30; С: =20; Y:=A; if B>Y then Y:=B; if C>Y then Y:=C; writeln (Y); Какое число будет напечатано на экр...
напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм = 2,54 см) для значений от 1 до 10 дюймов с шагом 1...
Все предметы