Кот учёный из поэмы руслан и людмила отправил телеграмму. 40 44 37 49 29 30 29 39 33 11 17 14 37 17 - id387250720200318 от Amelka06 18.03.2020 16:44

Question

Информатика: Кот учёный из поэмы руслан и людмила отправил телеграмму. 40 44 37 49 29 30 29 39 33 11 17 14 37 17 37 29 35 29 56 29 37 43 39 33 71 16 33 40 88 30 29 59 71 29 88 29 55 44 30 16 , 49 29 39 56 51 71 71 33 41 33 40 32 29 88 44 40 27 30 16 . 49 29 40 51 14 33 71 27 24 назовите существа, упомянутых в телеграмме. подсказка: кот хотя и учёный, но не различает буквы е и ё.

Amelka06 · Accepted Answer

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.

MOGZ ответил