А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln('Введите n:');
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
writeln('строка abc входит в данную строку ',k,' раз');
readkey;
end.
Я бы посоветовал:
1) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
Программа c repeat
program bacteria_1;
var bac,min:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
repeat
bac:= bac*2;
min:= min-1
until min=0;
writeln('Стало ',bac,' бакт.');
end.
Программа с for
program bacteria_2;
var bac,min,i:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
for i:=1 to min do
begin
bac:= bac*2;
min:= min-1
end;
writeln('Стало ',bac,' бакт.');
end.
<em>Написано на языке PascalABC.NET</em>
какие 4 предмета сдовать в геа