Предмет: Информатика,
автор: Mark0423
50 БАЛЛОВ. Написать 2 программы в паскале
Приложения:


Ответы
Автор ответа:
1
Задание 1:
- var x,y: integer;
- begin
- readln(x);
- if x < 0 then y := -x
- else y := sqr(x);
- writeln(y);
- end.
Задание 2:
Включая 0:
- var i, n: integer;
- begin
- repeat
- readln(i);
- if i.IsOdd then n += 1;
- until i = 0;
- writeln(n);
- end.
Не включая 0:
- var i, n: integer;
- begin
- repeat
- readln(i);
- if (i.IsOdd) and (i<>0) then n += 1;
- until i = 0;
- writeln(n);
- end.
Похожие вопросы
Предмет: Другие предметы,
автор: gavrodey001
Предмет: Русский язык,
автор: portnovakatja
Предмет: Русский язык,
автор: Аноним
Предмет: Геометрия,
автор: klaysindra
Предмет: Литература,
автор: зулечкаlove