Какие типы моделей? Не понятен мне вопрос( Прости ответа нет
Єто панель инструментов её можно стереть полностю!!! нажав ПКМ
begin
k1:=0
k2:=0
writeln (' Введите три числа');
if x<span><0 then k1:=k1+1;</span>
<span>if x<span><0 then k2:=k2+1;(ЕЩЕ " ЧИСЛА)</span></span>
<span><span>intil x=0;</span></span>
<span><span>writeln ('k1=',k1,'',k2=',k2)</span></span>
<span><span>end</span></span>
<span><span>я думаю наверно так))))))))))))))))</span></span>
Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
Begin
for var i:=1 to 4 do
begin
for var j:=1 to 5 do
write('3 ');
writeln;
end;
end.
(Pascal ABC)