Ohokio198336
?>

Дан словесный алгоритм программы переведите его в программный используя язык программирования Pythonалгнач вещ x, yввод y если y<= 0 то x= y+5иначе x= 0вывод xкон​

Информатика

Ответы

Yevgenii_Gurtovaya1532

y = int(input())

if y <= 0 :

 x = y + 5

else:

 x = 0

print(x)

uksusoval617

Объяснение:

1. var i: integer;

var z, s: double;

begin

i := 1;

z := 512;

s := 0;

while i <= 10 do

 begin

  s := s + i/z;

  inc(i);

  z := z/2;

 end;

writeln(s:0:2);

end.

2. var i, k: integer;

begin

i := 0;

k := 0;

repeat  

 inc(i);

 if ((i mod 2) = 0) then inc(k);

until i=5;

write(k);

end.

3. var i, n: integer;

begin

i := 0;

n := 0;

while i<10 do

 begin

  n := random (31) + 10;

  if ((n mod 2) = 0) then  

    begin

      writeln(n);

      inc(i);

     end;

 end;

end.

Paradismebel

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан словесный алгоритм программы переведите его в программный используя язык программирования Pythonалгнач вещ x, yввод y если y<= 0 то x= y+5иначе x= 0вывод xкон​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Щербаков33
elenaftdv7
Dmitrievna405
sgritsaev
Veronika1270
rudakovam198
Вершинина1161
Zimin1111
mmctriitsk
Косоногов Иосифовна
Каныбек698
IAleksandrovna45
vodexshop2
lavr74
Postnikova-StreltsovaKyulbyakova