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

алг
нач
цел n, s
n := 4
s := 0
нц пока n <= 8
    s := s + n
    n := n + 1
кц
вывод s
кон

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

алг
нач
цел n, s
n := 1
s := 0
нц пока ss <= 125
    s := s + 3
    n := n 2
кц
вывод n
кон

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

алг
нач
  цел n, s
  n := 0
  s := 0
  нц пока 3s < 111
    s := s + 8
    n := n + 2
  кц
  вывод n
кон

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

алг
нач
    цел s, n
    s := 80
    n := 0
    нц пока s + n < 150
        s := s − 5
        n := n + 15
    кц
    вывод n
кон

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

алг
нач
    цел s, n
    s := 600
    n := 10
    нц пока s + 2n >= 320
        s := s − 50
        n := n + 10
    кц
    вывод s
кон

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

алг
нач
    цел n, s
    n := 4
    s := 15
    нц пока s <= 250
        s := s + 12
        n := n + 2
    кц
    вывод n
кон

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

pyankova06

14.03.2023 02:13

Составить программу на языке Паскаль, с оператора безусловного перехода. Написать программу, вычисляющую значение функции Z, Z=1/Х, если Х =128 Z=1/(Х-200), если...

astatined

23.07.2021 14:07

Перед кожною ітерацією...1) Перевіряється умова завершення циклу.2) Виконується наступна ітерація.3) Цикл виконується спочатку....

Jgareva101dasha

03.04.2021 10:38

Құжаттың тақырыптар тізімінен құралған бөлігі:А) СөйлемD) СілтемелерВ) Әдебиеттер тізіміE) МазмұнC) Дәйексөз...

KOJIOCOK

26.08.2021 05:18

Логикалык функциялардын қызметі қандай...

VarDim126

05.01.2022 08:53

Как называется параметр в функции print, который отвечает за разделяющие символы? endkeymathsep...

RomZo1

28.08.2022 05:33

Если мы хотим заставить пользователя ввести целое число и при этом чтобы оно сохранилось в переменную b, какой из предложенных команд нам нужно воспользоваться?...

ekaterintys

27.07.2022 07:48

27 Ноября.1. Жо осио КОСРLoo olunma co ook.0-zams, imo bewecmbo cormoum uz ve...

CRaBFeed

24.10.2022 08:42

Чувствителен ли PYTHON к регистру (большая или маленькая буквы):НетДа...

Dina333098

11.03.2023 06:55

ЕСКД применения iso и din стандарты...

maksim5555695656

27.03.2023 20:55

Будьте добры! 1)переведите число n из k-ой системы счисления в p-ичную систему счисления: n = 110432204,04130303; k = 5, p = 15 2) разделить числа, которые в троичной...

Ответ:

89051330939

25.12.2022 01:11

ответ на 1 задачу
Алгоритм выглядит таким образом:
ввести x, y;
если x>y то
s:=(x*y)*2;
иначе
s:=(x+y)/2;
вывод s
конец. (блок-схема прилагается в скриншоте 1)

На паскале выглядит примерно так:
var
x, y, s:real;
begin
readln(x,y);
if x>y then
s:=(x*y)*2;
else
s:=(x+y)/2;

writeln(s:2:2);
end.

ответ на 2 задачу
Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)

ответ на 3 задачу
Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".

На паскале выглядит примерно так:

var
a, b, c:integer; {если число вещественное}
begin
readln(a, b, c);
if (a<b<c) then
writeln("Верно");
else
writeln("Неверно");
end.

ответ на 4 задачу
На паскале:
var
a, b, c, max:integer;
begin
max:=0;
readln(a,b,c);
if max<a then
max:=a;
if max<b then
max:=b;
if max<c then
max:=c;

writeln(max);
end.

ответ на 5 вопрос
На паскале:

Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<0) then
a:=a*a;
writeln(a);

if (b<0) then
b:=b*b;
writeln(b);

if (c<0) then
c:=c*c;
writeln(c);
end.

Удачи!

Составить алгоритм ! составить алгоритм и блок- к каждой . кто хорошо разбирается, ! 1. даны действи

Составить алгоритм ! составить алгоритм и блок- к каждой . кто хорошо разбирается, ! 1. даны действи

0,0(0 оценок)

Ответ:

ssshhhhhhannnnssha

11.11.2020 02:53

1) находим количество пикселей, используя для вычисления степени числа 2: n = 512 · 256 = 29 · 28 = 217 2) объём файла в кбайтах 64 = 26 3) объём файла в битах 26 · 213 = 219 4) глубина кодирования (количество битов, выделяемых на 1 пиксель): 219 : 217 = 22 = 4 бита на пиксель 5) максимальное возможное количество цветов 24 = 16 6) ответ: 16.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку