DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
Напиши свою почту, здесь нельзя прикрепить фото.
псевдокод:
алг функция
арг вещ х,а
рез у
нач
ввод х,а
у:=abs(x)-sin(x)-a
вывод у
кон
Даны два набора чисел (5,6,1,2,3) и (5,8,6,0,3) написать программу , которая подсчитывает количесво чисел, которые совпадают в о
Роман309 [59]
Uses crt;
const mn1: array[1..5] of byte =(5,6,1,2,3); {Объявляем наши наборы}
const mn2: array[1..5] of byte =(5,8,6,0,3); {Объявляем наши наборы}
var i,c,n:integer;
begin
clrscr;
write('Набор1 до обработки:');
for i:=1 to 5 do write(mn1[i]:3); {Выводим на экран набор 1}
writeln;
writeln;
write(' Набор2 до обработки: :');
for i:=1 to 5 do write(mn2[i]:3); {Выводим на экран набор 2}
writeln;
writeln;
n:=1; c:=0;
while (n<=5) do {В цикле сравниваем n-й элемент набора1 с}
Begin {каждым элемент набора2 }
for i:=1 to 5 do begin
if (mn1[n]=mn2[i]) then
begin
c:=c+1; {Если нашли совпадение до увеличиваем кол-во совпадающих пар чисел}
mn1[n]:=0; {И записываем на их место нули}
mn2[i]:=0;
break; {переходим к след элементу набора1}
end;
end;
Inc(n);
End;
{Выводим результаты обработки}
write('Количество совпадающих пар чисел:',c);
writeln;
write(' Набор1 после обработки :');
for i:=1 to 5 do write(mn1[i]:3);
writeln;
writeln;
write(' Набор2 после обработки :');
for i:=1 to 5 do write(mn2[i]:3);
readkey; {пауза до нажатия на любую клавишу}
end.
1) Объём + Иллюстрации + Автор +
2) Объём + Иллюстрации - Автор +
3) Объём - Иллюстрации + Автор +
4) Объём + Иллюстрации - Автор -
5) Объём + Иллюстрации + Автор +
6) Объём + Иллюстрации + Автор +
Для Незнайки подходят книги 1, 5, 6, ответ Г.
Пояснение: Книга 5 подходит потому, что объём не больше 200 страниц, а значит меньше/равно 200.
Program n1;
var a,b: real;
begin
readln(a,b);
if a<b then a:=abs(a-b);
if b<a then b:=abs(a-b);
writeln(a,' ',b);
end.