1. дано целое n 2. напечатать все простые числа из диапазона [2, n]. 2. напишите про¬грам¬му для ре¬ше¬ния - id867907420200627 от владик216 27.06.2020 22:20

Question

Информатика: 1. дано целое n 2. напечатать все простые числа из диапазона [2, n]. 2. напишите про¬грам¬му для ре¬ше¬ния сле¬ду¬ю¬щей . ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав¬то-ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё автомобилей, округ¬ляя зна¬че¬ния ско¬ро¬сти до целых чисел. не¬об¬хо¬ди¬мо опре¬де¬лить максимальную зарегистрированную ско¬рость автомобиля. если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведите «yes», иначе вы¬ведите «n0». программа получает на вход число

владик216 · Accepted Answer

var    a: integer;begin    {1}    readln(a);    if a 0 then a := a + 1;    writeln(a);        {2}    readln(a);    if a 0 then a := a * 2;    writeln(a);        {3}    readln(a);    if a 0 then a := a - 4;    writeln(a);        {4}    readln(a);    if a 0 then a := a + 1    else a := a - 1;    writeln(a);        {5}    readln(a);    if a = 0 then a := a + 3    else a := 0;    writeln(a);end.{6}var    x, y: real;begin    readln(x, y);    if x y then x := x * y    else x := x + y;    writeln(x);end....

MOGZ ответил