Предмет: Информатика,
автор: gadzievan777
Решите ПОЖАЛУЙСТА СРОЧНО 1 и 2 задание. Буду оочень благодарна
Приложения:

Ответы
Автор ответа:
1
Ответ:
1)
Var x:integer;
Begin
Read(x);
If x <5 then write(3*x-2)
Else write (2*x+5);
End.
2)
Var x,y:integer;
Begin
Read(x,y);
If x<9 and x >-3 and y>-3 and y <4 then write('принадлежит')
Else write('не принадлежит');
End.
3)
Var m,n:integer;
Begin
Read(n,m);
Case n of
1:write(m+' кг');
2:write(m+' мг');
3:write(m+' г');
4:write(m+' т');
15write(m+' ц');
End.
gadzievan777:
Спасибо большое ❤️
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Литература,
автор: dasha6822
Предмет: Українська мова,
автор: valerianochka14
Предмет: Алгебра,
автор: Natashka20161
Предмет: Литература,
автор: ямаматрёх