1 Гибкий магнитный диск. 2 Устройство для вывода информации на бумажный носитель. 3 Запоминающее устройство. - id1111434620210619 от kursovaalena8 19.06.2021 23:32

Question

Информатика: 1 Гибкий магнитный диск. 2 Устройство для вывода информации на бумажный носитель. 3 Запоминающее устройство. 4 Жесткий диск. 5 Устройство ввода информации. 6 Устройство ввода информации с бумажного носителя. 7 Сверхоперативная память. По вертикали: 3 Устройство обработки информации. 5 устройство вывода информации. 8 Вычислительная система. 7 Клавишное устройство ввода информации. 9 система проводов.

kursovaalena8 · Accepted Answer

Вот посмотри, может сем
uses crt;
var s: string;
function Kslov (str: string; c: char): integer;
var i,k: integer;
begin str:=str+' ';
k:=0;
for i:=1 to length(str)-1 do if (str[i+1] in [' ','.',',','-',':',';','!','?']) and (str[i]=c) then inc(k);
Kslov:=k;
end;
procedure Del(var str: string);
var i,j: integer;
begin str:=str+' '; i:=length(str)+1;
repeat dec(i);
until(str[i+1]=' ') and (str[i]='о');
j:=i;
repeat dec(i);
until(str[i+1]=' ') or (i=1); delete(str,i,j-i);
end;
begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а') then Del(s); write('s=',s);
End.
Нужен код для паскали найти сумму всех четных элементов массива,кратных заданному числу.

Нужен код для паскали найти сумму всех четных элементов массива,кратных заданному числу.

MOGZ ответил