Для числа от 0 до 31 написать фразу: "Я просмотрел N кинофильмов"

@hll3 · Регистрация: 16.05.2014

Author24 — интернет-сервис помощи студентам

Очень нуждаюсь в помощи!!помогите пожалуйста !!!
Задание 1. Для числа от 0 до 31 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N.
Задание 2. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

@erl27 · 17.05.2014, 02:22

Сообщение от hll3

Задание 1.

Pascal

var
  N: byte;
  
begin
  write('N = ');
  readln(N);
  writeln;
  write('«Я просмотрел ', N);
  case N of
    0, 5..20, 25..30: write(' кинофильмов»');
    1, 21, 31: write(' кинофильм»');
    2..4, 22..24: write(' кинофильма»')
  end
end.

Добавлено через 4 минуты
Другой способ для задания 1:

Pascal

var
  N: byte;
  
begin
  write('N = ');
  readln(N);
  writeln;
  if N in [0..31] then begin
    write('«Я просмотрел ', N);
    if N in [0, 5..20, 25..30] then write(' кинофильмов»')
    else
    if N in [1, 21, 31] then write(' кинофильм»')
    else
    if N in [2..4, 22..24] then write(' кинофильма»')
  end
  else write('Вы ввели неверное число')
end.

Добавлено через 9 минут

Сообщение от hll3

Задание 2.

Pascal

var
  x, y: real;
  
begin
  write('x = ');
  readln(x);
  writeln;
  if x <= -3 then y := 3
  else
  if x <= 3 then y := 3 - sqrt(9 - x * x)
  else
  if x <= 6 then y := -2 * x + 9
  else y := x - 9;
  write('y = ', y)
end.

@hll3 0 / 0 / 0 Регистрация: 16.05.2014 Сообщений: 3
		1
	Для числа от 0 до 31 написать фразу: "Я просмотрел N кинофильмов" 16.05.2014, 20:58. Показов 1049. Ответов 1 Метки нет (Все метки) Очень нуждаюсь в помощи!!помогите пожалуйста !!! Задание 1. Для числа от 0 до 31 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N. Задание 2. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Миниатюры 0

	17.05.2014, 02:22

Для числа от 0 до 31 написать фразу: "Я просмотрел N кинофильмов"

Решение