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

Выберите из предложенного списка команду языка программирования Pascal объявляющую имя программы: *
1program
2begin
3read
4var
Выберите из предложенного списка команду языка программирования Pascal объявляющую имена и типы переменных: *
1read
2var
3program
4begin
Выберите из предложенного списка команду языка программирования Pascal объявляющую начало описания алгоритма: *
1read
2begin
3var
4program
Выберите из предложенного списка команду языка программирования Pascal предназначенную для вывода на экран сообщений для пользователя: *
1read
2begin
3writeln
4var

👇
Ответ:
Tigr111111112
Tigr111111112
09.02.2020
1) следствие, ветвление, цикл
2) For <параметр цикла> := <начальное значение> To <конечное значение> Do <тело цикла>;
3) Да
5)While  L do  OP;
4,6(58 оценок)
Ответ:
1298school
1298school
09.02.2020
1-с
2-d
3-a,c,d
4-a
5-b
6-b
7-d
8-a
9-d
10-a,c,d
11-b
12-a,e
13-a
14-b
16-a
17-a
18-b
19-d
20-b,c
21-a
22-b
23-a
24-c
4,7(42 оценок)
Ответ:
raz1508
raz1508
09.02.2020
Как-то так, ответ в картинке.
Составте программу для pascal по следующим : 1) получить из слов язык,программирования, pascal
4,8(83 оценок)
Ответ:
cheri228
cheri228
09.02.2020
ответ на 2:
Вирус - Вредная программа которая позволяет навредить компьютеру, или получить к нему доступ.

ответ на 6.1:
Оператор присваивания - знак(символ) с которого переменной присваивается(дается) какое-либо значение переменной

ответ на 8:
Откладка программы - пошаговый запуск программы(надеюсь понятно объяснил)

ответ на 10:
Условный оператор - Проверка чего либо на что-то
Пример:
Язык pascal

if 41<50 then
writeln('41 меньше 50');


Если 41<51 то
пишется "41 меньше 50"
4,6(41 оценок)
Ответ:
witerold
witerold
09.02.2020
У нас было UCSD PASCAL
4,6(13 оценок)
Открыть все ответы
Ответ:
Sachak95
Sachak95
09.02.2020

using namespace std;

struct Treugolnik

{

int x1, y1;

int x2, y2;

int x3, y3;

};

int main()

{

Treugolnik a1;

cin >> a1.x1;

cin >> a1.x2;

cin >> a1.x3;

cin >> a1.y1;

cin >> a1.y2;

cin >> a1.y3;

float S, P, h,p;

 P = sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2))+sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2))+ sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2));

 p = 0.5*(sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)) + sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)) + sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)));

 S = sqrt(p*(p - sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2*(p - sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)))*(p - sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)));

 h = 2 * S / sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)); только к одной стороне  

 if (sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)) == sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)) == sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)))

  cout << "ранвостронний";

 if (pow(sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)), 2)+pow(sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)),2)==pow(sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)),2));

 cout << "прямоугольный";

 cout << S;

 cout << h;

 cout << P;

 return 0;

}

4,4(84 оценок)
Ответ:
афкашник
афкашник
09.02.2020
1)
uses crt;
var a:array [1..15] of integer;
     i,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to 15 do
    begin
      a[i]:=random(10)-3;
      if (a[i]<0) then inc(k);
      write (a[i],' ');
    end;
  writeln;
  writeln (k/15*100,'%');
end.

2)
uses crt;
var a:array [1..20] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if (a[i] mod 10 = 3) then write (a[i],' ');
end.

3)
uses crt;
var a:array [1..20] of integer;
     i:integer;
     k:longint;
begin
  randomize;
  k:=1;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
      if (a[i]>9) and (a[i]<100) then k:=k*a[i];
    end;
  writeln;
  writeln (k);
end.

4)
uses crt;
var a:array [1..30] of integer;
     i:integer;
     flag:boolean;
begin
  randomize;
  for i:=1 to 30 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  flag:=true;
  for i:=1 to 29 do
    if (a[i]>a[i+1]) then
     begin
       flag:=false;
       break;
     end;
  writeln (flag);
end.
4,5(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ