1)
var sumchis, i:integer;
begin
for i:=1 to 100 do begin
if i mod 6 =4 then
begin
writeln(i);
sumchis:=sumchis+1;
end;
end;
writeln('Колличество чисел', sumchis);
end.
2)
var sumchis, i:integer;
begin
for i:=1 to 10000 do begin
if i mod 17 =11 then
begin
writeln(i);
sumchis:=sumchis+1;
end;
end;
writeln('Колличество чисел', sumchis);
end.
Как сделать чтобы остаток равнялся B - не знаю, так как программа начинает считывать её как за переменную, если только B определить как переменную и в неё внести значение какое-то.

библиотека
материалов
МавлетбаеваС.Т. 20 апреля, 2014
Самостоятельная работа по программированию «Строковые функции и процедуры»
Вариант 1
Чему равно значение переменной n?
n:=length (‘Информация’);
Чему равно значение переменной S3?
S1 := ’На дворе трава, ’; S2:=‘на траве дрова’;
S:=CONCAT(S1,S2);
S3:=S1+S2;
Чему равно значение переменной n?
n:=pos(‘Планета ’ , ’Планета Детства’);
Чему равно значение переменной f?
St := ’Мыла Мила мишку мылом’;
F := copy(st,6,4);
Чему равно значение переменной S?
S:=’Однажды галок поп пугая, в кустах увидел попугая.’;
delete(S,9,17);
Чему равно значение переменной s?
S := ’Везёт Сенька с Санькой на санках.’;
INSERT(‘Соньку-‘,S,24);
Вариант 2
Чему равно значение переменной n?
n:=length (‘Программирование’);
Чему равно значение переменной S3?
S1 := ’Уронила Мила мыло, ’; S2:=‘мишку мылом не домыла.’;
S:=CONCAT(S1,S2);
S3:=S1+S2;
Чему равно значение переменной n?
n:=pos(‘Клара’ , ’ Карл и Клара’);
Чему равно значение переменной f?
St := ’У четырех черепашек четыре черепашонка’;
F := copy(st,11,9);
Чему равно значение переменной S?
S:=’На опушке в избушке живут старушки-болтушки.’;
delete(S,26,9);
Чему равно значение переменной s?
S := ’Сшила Сашке шапку ’;
INSERT(‘Саша- ‘,S,7);
