Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
Эргоно́мика (от др.-греч. ἔργον — работа + νόμος — закон) — в традиционном понимании — наука о приспособлении должностных обязанностей, рабочих мест, предметов и объектов труда, а также компьютерных программ для наиболее безопасного и эффективного труда работника, исходя из физических и психических особенностей человеческого организма.
#include <iostream.h>
#include <math.h>
void main()
{
float x;
float a,d,c,k;
cout<<"Vvedit a ";
cin>>a;
cout<<"Vvedit d ";
cin>>d;
cout<<"Vvedit c ";
cin>>c;
cout<<"Vvedit k ";
cin>>k;
x=(a+(d-12)*3)*(c-5*k);
cout<<"x = "<<x;
}
програма написана на мові програмування с++
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.
D-(-8;-4) ||| тоже самое было, надеюсь правильно :) удачи в изучение информатике....