*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Программа в PascalABC
var
c, b, a, d, Z : Integer ;
begin
writeln('(c+4ba)d/2cb+(2a2c)') ;
writeln(' Введите значение с ') ;
readln(c) ;
writeln('Введите значение b') ;
readln(b) ;
writeln('Введите значение а') ;
readln(a) ;
writeln('Введите значение d') ;
readln(d) ;
Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;
writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ;
End.
Должно сработать
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)