program zadacha;
var i:integer; stroka:string;
begin
readln(stroka);
for i:=1 to Length(stroka) do
if stroka[i]<>chr(ord(32)) then
write(stroka[i])
else
break;
end.
a:=x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.
Var s,s1:string;
i:integer;
begin
write('Введите слово: ');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
writeln(s1);
end.
Пример:
Введите слово: дождь
ддоожжддьь
1) Неправильное задание кажется, получается не целое выражение
1369875 (Бит) =
(Гб)
2) 5 (Гб) = 5*1024*1024*1024= 5 368 709 120 (Байт)
3) Переводим объём диска в Кб
700 (Мб) = 716 800 (Кб)
файлов поместится на диске размером 12457 (Кб)
Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
if a[i]=1 then n:=n+1;
end;
writeln ('edinice=',n,' elements');
end.