3 года назад

Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min

2 ответа:

0 0

Var a1, a2, a3, min : integer;
begin
readln(a1, a2, a3);
min := a1;
if min > a2 then min := a2;
if min > a3 then min := a3;
writeln(min);
<span>end.</span>

Тарина3 года назад

0 0

Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>

Читайте также

Решить задачи по информатике!!! помогите! 1) В одной из кодировок Unicode каждый символ кодируется 16 битами. Определи

dumitru959 [128]

Одна буква это 16 битов?

0 0

4 года назад

Число 30.107 может существовать в системах счисления с основаниями: а) 2 и 10 Б) 4 и 16 В)4 и 8 Г)8 и 10

Nazarii1995

а) 2 и 10 ................................................................

0 0

4 года назад

Запиши математическое выражение (2+t)2 на языке Паскаль. (При записи ответа используй прописные буквы). ПРОШУ, ЭТО ОЧЕНЬ СРОЧНО!

Wladeruss

Выражение будет иметь следующий вид: (2+t)*2.
Если нужно вычисление, тогда вот: t вводится с клавиатуры
Program Crt;
Var tmp,t:real;
Begin
WriteLn("Введите t= "); ReadLn(t);
tmp:= (2+t)*2;
WriteLn("Ответ: ", tmp);
readln();
end.

0 0

4 года назад

Какие из следующих предложений являются высказыванием: 1) если D◄0, то уравнение не имеет решения. 2) алгоритм - последовательно

Василий572

3 ... т.к. высказывание - это мысль .. котороя может быть правдой или ложью

0 0

4 года назад

Дана последовательность ненулевых чисел.Определить количество чисел кратных 3. Программа в С ++

JinJonJan

#include <bits/stdc++.h>
using namespace std;

int main()
{
    int n;
    cin >> n;
    int ans = 0, cur;
    for (int i = 0; i < n; i++)
    {
        cin >> cur;
        ans += (cur % 3 == 0);
    }
    cout << ans;
}

0 0

4 года назад

Прочитать ещё 2 ответа