auaftsuaftsa
03.03.2020 11:16

1. Определите число, которое будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования).

Бейсик Паскаль
DIM N, S AS INTEGER
N = 0
S = 0
WHILE S <= 249
S = S + 24
N = N + 3
WEND
PRINT N var n, s: integer;
begin
n : = 0;
s : = 0;
while s <= 249 do
begin
s : = s + 24;
n : = n + 3
end;
write(n)
end.
Си++ Алгоритмический язык
#include <iostream>
using namespace std;
int main()
{
int n, s;
n = 0;
s = 0;
while (s <= 249)
{
s = s + 24;
n = n + 3;
}
cout « n « endl;
} алг
нач
цел n, s
n : = 0
s : = 0
нц пока s <= 249
s : = s + 24
n : = n + 3
кц
вывод n
кон
Python
n = 0
s = 0
while s <= 249:
s += 24
n += 3
print(n)

2. Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования.

Бейсик Python
DIM S, N AS INTEGER
S = 0
N = 1
WHILE S*S <= 125
S = S + 3
N = N * 2
WEND
PRINT N s = 0
n = 1
while s*s <= 125:
s = s + 3
n = n * 2
print(n)
Паскаль Алгоритмический язык
var s, n: integer;
begin
s := 0;
n := 1;
while s*s <= 125 do
begin
s := s + 3;
n := n * 2
end;
writeln(n)
end. алг
нач
цел n, s
n := 1
s := 0
нц пока s*s <= 125
s := s + 3
n := n * 2
кц
вывод n
кон
Си++
#include <iostream>
using namespace std;
int main()
{ int s = 0, n = 1;
while (s*s <= 125) { s = s + 3; n = n * 2; }
cout « n « endl;
return 0;
}
3. Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования.

Бейсик Python
DIM S, N AS INTEGER
S = 0
N = 25
WHILE S + N <= 100
S = S + 20
N = N − 5
WEND
PRINT S s = 0
n = 25
while s + n <= 100:
s = s + 20
n = n − 5
print(s)
Паскаль Алгоритмический язык
var s, n: integer;
begin
s := 0;
n := 25;
while s + n <= 100 do
begin
s := s + 20;
n := n − 5;
end;
writeln(s)
end. алг
нач
цел s, n
s := 0
n := 25
нц пока s + n <= 100
s := s + 20
n := n − 5
кц
вывод s
кон
Си++
#include <iostream>
using namespace std;
int main()
{
int s = 0, n = 25;
while (s + n <= 100) {
s = s + 20;
n = n − 5;
}
cout « s;
return 0;
}

4. Определите, что будет напечатано в результате работы следующего фрагмента программы:

Бейсик Python
DIM K, S AS INTEGER
S = 0
K = 1
WHILE S < 66
K = K + 3
S = S + K
WEND
PRINT K s = 0
k = 1
while s < 66:
k += 3
s += k
print(k)
Паскаль Алгоритмический язык
var k, s: integer;
begin
s:=0;
k:=1;
while s < 66 do begin
k:=k+3;
s:=s+k;
end;
write(k);
end. алг
нач
цел k, s
s := 0
k := 1
нц пока s < 66
k := k + 3
s := s + k
кц
вывод k
кон
Си++
#include <iostream>
using namespace std;
int main() {
int s, k;
s = 0, k = 1;
while (s < 66) {
k = k + 3;
s = s + k;
}
cout « k « endl;
return 0;
}

5. Определите число, которое будет напечатано в результате выполнения программы.
Для Вашего удобства программа представлена на четырёх языках программирования.

Бейсик Паскаль
DIM I, S AS INTEGER
I = 0
S = 70
WHILE S > 7
S = S – 7
I = I + 1
WEND
PRINT(I) var i, s: integer;
begin
i := 0;
s := 70;
while s > 7 do
begin
s := s – 7;
i := i + 1
end;
writeln(i)
end.
Си++ Алгоритмический язык
#include <iostream>
using namespace std;
int main()
{
int i, s;
i = 0;
s = 70;
while (s > 7)
{
s = s – 7;
i++;
}
cout « i « endl ;
} алг
нач
цел i, s
i := 0
s := 70
нц пока s > 7
s := s - 7
i := i + 1
кц
вывод i
кон
Python
i = 0
s = 70
while s > 7:
s -= 7
i += 1
print(i)​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
МАШЕНЬКА881
06.03.2023 20:18
Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13
0,0(0 оценок)
Ответ:
lerusik112
14.05.2020 17:27
№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота