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

могу дать все толькоо решите правильно!
1)Для вывода данных из оперативной памяти на экран используется оператор
1)end
2)writeln
3)listenln
4)begin

2)Дан фрагмент программы:
x:= 81;
write ( 'ответ: ', х: 2,'км/ч');

На экране будет выведено:

1)81
2)км/ч
3)ответ:
4)ответ: 81 км/ч

3)Дан фрагмент программы:
a:=28; b:= a+9; a:=b-a; writeln (a); writeln (b)

ответ:

4)Запиши программу в Паскале для вычисления площади прямоугольника со сторонами b и p

1)var
b, p:word;
begin
writeln('Введи длину и ширину прямоугольника b и p');
readln (b,p);
s:=b*p;
writeln('s=',s);
readln;
end.
2)var
b, p,s:word;
begin
writeln('Введи длину и ширину прямоугольника b и p');
readln (b,p);
s:=b*p;
3)begin
writeln('Введи длину и ширину прямоугольника b и p');
readln (b,p);
s:=b*p;
writeln('s=',s);
readln;
end.
4)var
b, p,s:word;
begin
writeln('Введи длину и ширину прямоугольника b и p');
readln (b,p);
s:=b*p;
writeln('s=',s);
readln;
end.

4)Дано: writeln (s:6:2);
Если s=113,38283, то на экране появится

👇
Ответ:
Marysilly
Marysilly
13.06.2020

ничего не поняла но очень интересно

4,8(79 оценок)
Открыть все ответы
Ответ:
ModerBlet
ModerBlet
13.06.2020
1. → 2 [сдвинуться вправо, перейти на строку 2]
2. → 3 [сдвинуться вправо, перейти на строку 3] — в вопросе опечатка?
3. → 4 [сдвинуться вправо, перейти на строку 4]
4. ? 5;2 [если в текущей ячейке нет метки, перейти на строку 5, иначе вернуться на 2]
5. ← 6 [сдвинуться влево, перейти на строку 6]
6. V 7 [поставить метку, перейти на строку 7]
7. ! [закончить работу]

Программа делает следующее: переходит на метку вправо, шагами по две ячейки идёт вправо, пока не дойдёт до пустой ячейки, возвращается на ячейку влево, ставит там метку и заканчивает работу.

Пусть метки расположены в ячейках 0 - (n-1), каретка под ячейкой 0.
Тогда сначала каретка окажется подячейкой 1, сделает [n/2] шагов по 2 вправо ([x] — целая часть x), оказавшись под ячейкой 1 + 2 * [n/2], вернётся на ячейку влево (ячейка 2 * [n/2]) и поставит там метку.

Если n было четным, будут заполнены ячейки от 0 до n, каретка под ячейкой n
Если n было нечетным, будут заполнены ячейки от 0 до n - 1, каретка под ячейкой n - 1
4,8(71 оценок)
Ответ:
missaki999
missaki999
13.06.2020
1.var
   max,min,i:integer;
   b:real;
   a:array[1..9]of integer;
begin
for i:=1 to 9 do
  begin
  while (a[i]<1) or (a[i]>6) do
    begin
    write(i,' оценка: ');
    readln(a[i]);
    end;
  if i=1 then
    begin
    max:=a[1];
    min:=a[1];
    end;
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
  b:=b+a[i];
  end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
end. 

2. #include <stdafx.h> 
#include <stdio.h> 
#include <math.h> 
#include <stdlib.h> //for rand; 
int main()
 { 
int i, n,M[1]; 
 printf("Vvedit N:");
  scanf("%d",&n); 
for (i = 0; i < n; i++) 
 { 
  M[i] = rand()%10; 
    }
for (i = 0; i < n; i++) 
 { 
     printf("Array[%d] = %d\n", i, M[i]);
  } 
          scanf("%d"); 
return 0; 
}

3. var

a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');

end. 

4,8(93 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ