Все категории

3 года назад

Дорогие ребята! У нас Pascal ABC, а нам задали задание 4, только без ошибок

Знания

Информатика

1 ответ:

katec [45]3 года назад

0 0

Детский сад ребята.

program task4;
var a, b, c: integer;
begin
writeln ('Введите три числа:');
readln (a, b, c);
if (a > b) and (a > c) then writeln (a);
if (b > a) and (b > c) then writeln (b);
if (c>a) and (c>b) theb writelb (c);
end.

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

Помогите придумать предложения с началом: "Совет федерации РФ..."

Алиса122 [1]

Совет Федерации РФ является верхней палатой парламента РФ, структура которого утверждена конституцией этого преступного режима, принятой в результате государственного переворота 1993 года.

0 0

4 года назад

Напишите программу вычисления выражения 2_а,б стр 173 1

Света Иванова [760]

Ответ: a)

program dz;

var

k,a,b:real;

begin

read(a,b);

k:=(sqrt(a)+sqrt(b))/sqrt(sqr(a)+sqr(b));

write(k);

end.

б)

program dz;

var

x,z,y:real;

begin

read(z,y);

x:=z*y/sqrt((sqr(z)*z)+(sqr(y)*y));

write(x);

end.

Объяснение:

0 0

4 года назад

Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых являются степенями двойки(1,2,4,

GinaLi [205]

#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
   using namespace std;
   const int n = 10; //количество элементов массива
   int Arr[n];

   //как-нибудь заполняем массив
   srand(time(0));
   int i;
   for (i = 0; i < n; ++i)
       Arr[i] = rand() % (n * n) + 1;

   //выведем его на экран
   for (i = 0; i < n; ++i)
       cout << Arr[i] << "   ";
   cout << endl;

   int p;
   for (i = 1; i < n; ++i)
   {
       p = i;
       while (p % 2 == 0)
           p /= 2;
       if (p == 1)
            cout << "Arr[" << i << "] = " << Arr[i] << endl;
   }
   cout << endl;
   return 0;
}

0 0

4 года назад

Разгадай кроссворд : сведения новости .Источник знаний используется для чтения. С помощью этого органа чувств мы чувствуем запах

lenakla [1]

Глаза для чтения,нос запажи,ухо слух.

0 0

4 года назад

Изобразите в виде схемы структуру современной науки-инфоратики.

Инакентий21

Вот, смотри структуру информатики:

0 0

4 года назад