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

1.
В какой строке допущена ошибка?
var i, s;
begin
s := 0;
for i: = 1 to 7 do
begin
s := s + s*i;
end;
end;

А: for i: = 1 to 7 do
Б: s := 0;
В: var i, s;
Г: s := s + s*i;
Выберите один правильный ответ (максимум )
2.
Чему будет ровняться значение переменной s?
var i, s: integer;
begin
s := 0;
for i: = 1 to 3 do
begin
s := s + i;
end;
end;

А: 6
Б: 8
В: 5
Г: 7
Выберите один правильный ответ (максимум )
3.
Чему будет равно значение переменной s?
var i, s, p: integer;
begin
s := 0;
p := 2;
for i: = 1 to 3 do
begin
s := s + i + p;
p := p + 3;
end;
end;

А: 23
Б: 24
В: 18
Г: 21
Выберите один правильный ответ (максимум )
4.
Чему будет равно значение переменной s?
var s, n: integer;
begin
n := 25;
s := 15;
while n<=100 do
begin
s := s + 50;
n := n + 25;
end;
А: 215
Б: 150
В: 175
Г: 145
Выберите один правильный ответ (максимум )
5.
Какое значение будет иметь переменная і?
var i, n: integer;
begin
n := 50;
i := 0;
while n <= 180 do
begin
i := i + 1;
n := n + 60;
end;

А: 2
Б: 3
В: 4
Г: 1
Выберите один правильный ответ (максимум )
6.
Какое значение будет иметь переменная i после выполнения программы?
var i, n: integer;
begin
n := 15;
i := 0;
while n>= 40 do
begin
i := i + 1;
n := n + 15;
end;

А: 4
Б: 0
В: 2
Г: 3

Показать ответ
Ответ:
1111POLINA1111
1111POLINA1111
02.03.2021 06:29

var

 a: string;

 b: array[1..9]of integer;

 sort: boolean;

 max, k: integer;

begin

 Readln(a);

 for var i := 1 to Length(a) do

   b[i] := strtoint(a[i]);

 sort := false;

 while sort = false do

 begin

   sort := true;

   k += 1;

   for var i := 1 to Length(a)-1 do

   begin

     if a[i] < a[i+1] then

     begin

       sort := false;

       var value2 := a[i];

       a[i] := a[i+1];

       a[i+1] := value2;

     end;

   end;

 end;

 write(a[1]);

end.

Программа написана на PascalABC.net

на free pascal или turbo pascal она может не работать

0,0(0 оценок)
Ответ:
Soto350
Soto350
19.05.2020 00:45

Введите а: -4

Введите b: 12

! Результат работы а: 8

Введите а: -4

Введите b: 6

! Результат работы б: 22

Введите а: 90

Введите b: 40

! Результат работы в: 70

Объяснение:

С++:

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int a, b, c;

//a

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

b = b + a * 2;

if (a > b)

{

 c = a + b;

}

else

{

 c = b - a;

}

cout << "Результат работы а: " << c << endl;

//б

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 2;

if (a <= b)

{

 c = b - a;

}

else

{

 c = a - b;

}

cout << "Результат работы б: " << c << endl;

//в

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 3;

if (a>b)

{

 c = a - b;

}

else

{

 c = b - a;

}

cout << "Результат работы в: " << c << endl;

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота