Написать программу для Паскаль через оператор Case. Для целого числа K от 1 до 99 напечаать фразу quot;мне K летquot;, учитывая при этом что при вводе некоторых значений K слово quot;летquot; надобно поменять на слово quot;годquot; или quot;годаquot;.
- Вера
- Информатика
- 2019-10-05 09:41:39
- 1
Алёна Чубуткина 2019-10-05 09:49:02
var i,n :integer;
begin
n:=99;
for i:=1 to n do begin
case i of
11..14 :writeln(мне ,i, лет);
else
case i mod 10 of
1:writeln(мне ,i, год);
2..4:writeln(мне ,i, года);
else
writeln(мне ,i, лет);
end;
end;
end;
end.
2-ой вариант:
uses crt;
var k:byte;
begin
clrscr;
repeat
write(Введите возраст от 1 до 99 k=);
readln(k);
until k in [1..99];
case k of
11..14:write(Мне ,k, лет);
else
case k mod 10 of
1:write(Мне ,k, год);
2..4:write(Мне ,k, года);
else write(Мне ,k, лет);
end;
end;
readln
end.
Источник: obrazovalka.com
Написать программу: Для целого числа K от 1 до 99 напечатать фразу: «Мне K лет, учитывая, что м…
Написать программу:
Для целого числа K от 1 до 99 напечатать фразу: «Мне K лет, учитывая, что может быть год, лет, года.
Год: 1, 21, 31, 41.
Лет: 5-20, 25-30, 35-40, 45-50.
Года: 2, 3, 4, 22-24, 32-34, 42-44.
JavaScript
Гордей Черпнышев Вопрос задан 24 сентября 2019 в Информатика, true»> Поделиться
1 Ответ (-а, -ов)
Можно сделать разными способами..например, через switch case
Пример:
var k; k= prompt(«Input value»,0);
switch(true)//Год
case (k==1 || k==21): alert(«Вам»+k+»Год»);break;
//Лет
case((k>=5 k<=20)):alert(«Вам»+k+»Лет»);break;
>
И т.д по аналогии…Можно через остатки от деления, кажется.. и др.
Остап Шумятьев Отвечено 24 сентября 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru
задачи на оператора выбора. составить программу к задаче: Для целого числа k от 1 до 99 напечатать фразу «Мне k лет»,учитывая что может быть «лет»,»год» ,»года»
uses crt; var r: byte; begin readln(к); write(‘Мне ‘,к); if r in [5..20] then write(‘ лет’) else case к mod 10 of 1: write(‘ год’); 2..4: write(‘ года’); 5..9,0: write(‘ лет’); else writeln(‘error’); end; end. через case оч хорошо всё получается) или вот так по подробнее: Const st=’Мне’; Var k: Byte; BEGIN Repeat Write(‘Введите K (от 1 до 99): ‘); Readln(k); until k in [1..99]; Case k of 11..20: Writeln(st,’ ‘,k,’ лет’); Else begin Case k mod 10 of 1: Writeln(st,’ ‘,k,’ год’); 2..4: Writeln(st,’ ‘,k,’ года’); 5..9,0: Writeln(st,’ ‘,k,’ лет’); end; end; end; Readln END.
Источник: cwetochki.ru