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.
<span>В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
</span>
<span>n = int(input())
max5 = <span>0
</span>for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)
</span>
<em><u>Вариант для тех, кто любит и понимает множества.</u></em>
const
cs='бвгджз';
var
s:string;
i:integer;
c:char;
p,csg:set of char;
begin
Writeln('Введите текст, разделяя слова запятыми, в конце поставьте точку');
Readln(s);
p:=[];
for i:=1 to Length(cs) do Include(csg,cs[i]); { инициализация множества }
s:=LowerCase(s); { приведение к нижнему регистру }
i:=1; c:=s[1];
while c<>'.' do begin
{ обработка нечетного слова }
while not (c in [',','.']) do begin
if (c in csg) and not (c in p) then Include(p,c);
i:=i+1;
c:=s[i]
end;
{ обработка четного слова }
if c<>'.' then begin i:=i+1; c:=s[i] end;
while not(c in [',','.']) do begin
if (c in csg) and (c in p) then Exclude(p,c);
i:=i+1;
c:=s[i]
end;
if c<>'.' then begin i:=i+1; c:=s[i] end
end;
s:='';
for i:=1 to Length(cs) do if cs[i] in p then Write(cs[i])
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова запятыми, в конце поставьте точку
Это,пример,текста,созданного,для,проверки,программы.
гд
<em><u>Вариант для тех, кто с множествами не дружит:</u></em>
const
cs='бвгджз';
var
s,p:string;
i,n:integer;
c:char;
begin
Writeln('Введите текст, разделяя слова запятыми, в конце поставьте точку');
Readln(s);
p:=''; n:=Length(cs);
s:=LowerCase(s); { приведение к нижнему регистру }
i:=1; c:=s[1];
while c<>'.' do begin
{ обработка нечетного слова }
while (c<>',') and (c<>'.') do begin
if (Pos(c,cs)>0) and (Pos(c,p)=0) then p:=p+c;
i:=i+1;
c:=s[i]
end;
{ обработка четного слова }
if c<>'.' then begin i:=i+1; c:=s[i] end;
while (c<>',') and (c<>'.') do begin
if (Pos(c,cs)>0) and (Pos(c,p)=1) then p[Pos(c,p)]:='*';
i:=i+1;
c:=s[i]
end;
if c<>'.' then begin i:=i+1; c:=s[i] end
end;
for i:=1 to Length(cs) do if Pos(cs[i],p)>0 then Write(cs[i])
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова запятыми, в конце поставьте точку
Данная,фраза,предлагается,для,тестирования.
вг
Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.
V = U*T
U = 9216 байт/сек = 9 КБ/сек
T = 1 мин = 60 сек
V = 9 * 60 = 540 КБ
--------------------------------------
V - объем файла
U - скорость передачи данных
T - время