Предмет: Информатика,
автор: sorryiamsorry
На языке Паскаль, прошу срочно
Приложения:

Ответы
Автор ответа:
1
1)
var a : integer;
begin
readln (a);
if a mod 2 = 0 then a := a div 2
else a := a * 10;
writeln (a);
end.
2)
var a,b,c: integer;
begin
c := a + b;
readln (a,b);
if c > 100 then writeln ('Много')
else writeln ('Мало');
end.
3)
var a,b: integer;
c : real;
begin
readln (a,b);
c := (a + b) / 2;
if c > 10 then writeln ('УРА!')
else writeln('КАРАУЛ!');
end.
4 )
var a,b : integer;
begin
readln (a,b);
if (a = 100) or (b = 100) or ((a =100) and (b = 100)) then writeln ('Здесь есть такое число')
else writeln (' Здесь нет такого числа');
end.
var a : integer;
begin
readln (a);
if a mod 2 = 0 then a := a div 2
else a := a * 10;
writeln (a);
end.
2)
var a,b,c: integer;
begin
c := a + b;
readln (a,b);
if c > 100 then writeln ('Много')
else writeln ('Мало');
end.
3)
var a,b: integer;
c : real;
begin
readln (a,b);
c := (a + b) / 2;
if c > 10 then writeln ('УРА!')
else writeln('КАРАУЛ!');
end.
4 )
var a,b : integer;
begin
readln (a,b);
if (a = 100) or (b = 100) or ((a =100) and (b = 100)) then writeln ('Здесь есть такое число')
else writeln (' Здесь нет такого числа');
end.
Похожие вопросы
Предмет: Информатика,
автор: Аноним
Предмет: Английский язык,
автор: ze240946
Предмет: Физика,
автор: ilasapeev27
Предмет: Математика,
автор: маруся269