Программы с условным оператором Определите значение переменной с после выполнения следующего фрагмента программы (записанного ниже на разных языках программирования). ответ запишите в виде целого числа.
БэйсикАлгоритмический язык
а = 50 b = 6 а = а * 3 / b IF а > b THEN с = а + 5 * b ELSE с = а - 5 * b END IF
a : = 50 b : = 6 a : = a * 3 / b если a > b TO с : = a + 5 * b иначе с := a - 5 * b все
Си++Паскаль
a =50; b = 6; a = a * 3 / b if (a > b) с = a + 5 * b; else с = a - 5 * b;
a : = 50 ; b : = 6; a : = a * 3 / b if a > b then с = a + 5 * b else с = a - 5 * b;
Python
a = 50
b = 6
a = a * 3 / b
if a > b:
c = a + 5 * b
else:
c = a - 5 * b
var
x:integer;
y:real;
begin
write('Введите значение аргумента "X" : ');
readln(x);
y:=3*cos((5*x));
writeln('Значение функции "Y" = ',y);
readln;
end.
2.
var
x,b:integer;
begin
write('Введите количество молока, полученного за день, л : ');
readln(x);
write('Введите количество дней : ');
readln(b);
writeln('Количество молока, полученного за заданный промежуток времени = ',x*b);
readln;
end.
3.
var
a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(b,#10,c);
end.
4.
var
b:integer;
a:longint;
begin
write('Введите целое число: ');
readln(a);
b:=a div 100 mod 100;
writeln(b);
readln;
end.
5.
var
a,b:integer;
begin
write('Введите числа : ');
readln(a,b);
if a and b mod 2=0 then
writeln(a+b);
if a and b mod 2<>0 then
writeln(a*b);
readln;
end.
{Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}