var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
<span>Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);</span><span>i:=1;
repeat</span><span>val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;</span><span>until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.</span>
<span>Дисководы гибких магнитных дисков хранят данные примерно так же, как и жесткие диски - путем изменения магнитной полярности металлических частичек на их поверхности. Здесь сходство заканчивается. Первое отличие состоит в том, что дискеты можно вынимать из дисководов, то есть теоретически они предлагают неограниченное хранилище данных любому желающему. Но ограниченная емкость дискет (1, 44 МВ в отличие тысяч мегабайтов жестких дисков) уменьшает их полезность. (это дискета)</span>