Предмет: Русский язык, автор: G4MER

ДАЮ 20 БАЛЛОВ ТОЛЬКО ПОМОГИТЕ СРОЧНО 1 И 2 СДЕЛАТЬ ПО РУССКОМУ

Приложения:

Ответы

Автор ответа: стасюшка2004
2
зеленеет блестит юный не терпеливо раздельно любит
aleksashaovchi: Травка зеленеет, Солнышко блестит; Ласточка с весною В сени к нам летит. Вот уж снег последний в поле тает... … Юный лес, в зеленый дым одетый, Теплых гроз нетерпеливо ждет; Все весны дыханием согрето, Все кругом и любит и поет;
стасюшка2004: да
G4MER: а там же ещё ка кий та схемы
G4MER: последнее задание
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Українська література, автор: Аноним
ответ на 40 б))
Знайти рядок, у якому художній засіб виражений метафорою

“Згинуть наші воріженьки,як роса на сонці”

“Браття”, “воля”, “доля”, “доленька”

“Дніпро зрадіє”

“Нашій Україні”
1 год назад
Предмет: Українська мова, автор: dashawolfhard3
Помогите пожалуйста! Только 9, 6 и 13 вопрос надо!
ДАМ 70 БАЛЛОВ! ОБМАН -бан
хотя бы ответ на один из этих трёх​
1 год назад
Предмет: Қазақ тiлi, автор: Typical123
"Тазалыққа жаным құмар" эссе жазу
1 год назад
Предмет: История, автор: antoninavorobey0647
який вид військових підрозділів становив основу української армії​
7 лет назад
Предмет: Информатика, автор: Аноним
Помогите составить программу по вычислению функции в TURBP PASCAL
Задание на скриншоте

Текст программы может выглядеть следующим образом:
Program Lab_2-1;
Uses CRT; { Раздел объявления внешних модулей }
Label M1,M2;
var
n : integer;
x,y : real;
p: byte; {Признак выполнения пунктаN1}
begin
clrscr; { Очистка экрана }
riteln(‘Программа вычисления функции…’);

{ Вывод на экран меню }
writeln(‘+--------------------------------------------+’);
writeln(‘| 1. Ввод данных |’);
writeln(‘| 2. Вычисление функции и вывод результатов |’);
writeln(‘| 3. Завершение работы программы |’);
writeln(‘+--------------------------------------------+’);
p:=0;
M1: riteln(‘введите пункт меню’);
readln(n); { Ввод номера пункта меню}
case n of
1: begin { Ввод данных }
M2: write(‘Введите значение аргумента x=’);
readln(x)

{ Проверка допустимого значения аргумента }
if x=0 then begin
riteln(‘x не может быть равным 0 по условию’) ;
goto M2; end;
p:=1; {Пункт N1 выполнен}
end;
2: { Вычисление значения функции }
begin
If p<>0 then
Writeln (‘Данные не введены, выполните пункт N1’);
else
begin
{ Операторы вычисления и вывода значения функции }
if x>0 then y:=1/x else y:=x*x;
writeln(‘при х=’, x:7:2, ‘ y=’, y:7:2)
end;
end;
3: Exit { Выход из программы }
end; { end case }
goto M1;
end. { Конец программы}
7 лет назад