Program klubnika
<span>var a,b : integer; </span>
<span>begin </span>
<span>writeln('введите общее количество клубники'); </span>
<span>readln(a); </span>
<span>writeln('введите количество клубники, которое собрала Вера'); </span>
<span>readln(b); </span>
<span>if a-b > b then writeln('Валя собрала больше клубники') </span>
<span>else if a-b < b then writeln('Вера собрала больше клубники') </span>
<span>else writeln('клубники было собрано поровну');</span>
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
1) с
2) корневой каталог - С:
каталог первого уровня - windows
каталог второго уровня - appcompat
каталог третьего уровня - appraiser
3) b