В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
zhludovaanasta
zhludovaanasta
20.10.2020 05:20 •  Информатика

1. Параметр, используемый для разделения между значениями а) int

b) sep

c)float

2. Символ, используемый для вывода значений в новой строке

а) ’\n’

б)int

в)sep

3. Линейный алгоритм это? напишите определение

4.Функция ввода? напишите ответ

5. Функция вывода? напишите ответ

6.Дано математическое выражение. Запишите, как оно будет записано в языке программирования)
2(а+с) б)2х-3у в) г)3х-22у ​

Показать ответ
Ответ:
Анна3672
Анна3672
07.11.2020 19:38
Const n=10; m=3;
var 
a:array[1..n,1..m] of integer;
i,j,s,k:integer; p:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(81)+20;
   write(a[i,j]:4);
  end;
  writeln;
 end;
s:=0;
for i:=1 to n do
 for j:=1 to m do s:=s+a[i,j];
p:=s/n*0.8;
writeln('p = ',p:5:2);
writeln('Зачислены:');
k:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do s:=s+a[i,j];
 if s>=p then begin write(i,' '); k:=k+1; end;
 end;
writeln;
writeln('k = ',k);
end.

Пример:
Исходный массив:
  58  79  60
  96  63  97
  90  97  57
  29  68  25
  38  75  65
  54  69  42
  44  70  47
  39  49  24
  27  64  36
  68  21  64
p = 137.20
Зачислены:
1 2 3 5 6 7 10 
k = 7
0,0(0 оценок)
Ответ:
ДанькоДенис2018
ДанькоДенис2018
15.03.2022 06:38
Var x, y, a :real;
begin
writeln('введите переменные: x, y и a');
readln(x, y, a);
Y:=38*x+231;
M=7*x+6*y+276;
N=sqr(4*a)+2*x*a+8*y;
writeln(x, y и a соответственно равны: ' x, y, a');
end.

упс... не заметил, что нужно в 3 разные программы...

1)
var x, y :real;
begin
writeln('введите переменную x');
readln(x);
Y:=38*x+231;
writeln('y равен: ', y);
end.

2)
var x, y, m :real;
begin
writeln('введите переменную x и y');
readln(x,y);
M:=7*x+6*y+276;
writeln('m равен: ', m);
end.

3)
var x, y, a, n :real;
begin
writeln('введите переменные x, y, a');
readln(x, y, a);
N=sqr(4*a)+2*x*a+8*y;
writeln('N равен: ', n);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота