Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do
case S[I] of
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.
Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6
Program n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
<span>Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания</span>
Там было слишком много ошибок. Вот работающий код (*.pas файл открыть блокнотом)
Дано:
N1= 4096
N2=64
x1y1=x2y2
Найти: V1/V2
Решение:
N=2^I
V= x*y*I
I1=12
I2=6
12/6=2
Ответ: в 2 раза
