Помогите пожалуйста надо к субботе сделать ❤️
Приложения:
rinatmuxekto86:
Язык программирования?
ну наверно
Какой язык программирования?)
Паскаль ABC.net это же то??
я не шарю
2) var
s:string;
begin
readln(s);
writeln(length(s));
end.
3)var
s:string;
b:char;
begin
readln(s);
readln(b);
writeln(s+b);
end.
4)var
s:string;
i,sum:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then sum+=1;
writeln(sum);
end.
s:string;
begin
readln(s);
writeln(length(s));
end.
3)var
s:string;
b:char;
begin
readln(s);
readln(b);
writeln(s+b);
end.
4)var
s:string;
i,sum:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then sum+=1;
writeln(sum);
end.
5)var
s:string;
i,countTchk,countZap:integer;
begin
readln(s);
countTchk:=0;
countZap:=0;
for i:=1 to length(s) do
begin
if s[i]='.' then countTchk+=1;
if s[i]=',' then countZap+=1;
end;
if countTchk>countZap then
writeln('Точек больше')
else if countTchkwriteln('Запятых больше')
else
writeln('Их одинаково');
end.
s:string;
i,countTchk,countZap:integer;
begin
readln(s);
countTchk:=0;
countZap:=0;
for i:=1 to length(s) do
begin
if s[i]='.' then countTchk+=1;
if s[i]=',' then countZap+=1;
end;
if countTchk>countZap then
writeln('Точек больше')
else if countTchkwriteln('Запятых больше')
else
writeln('Их одинаково');
end.
спасибо большое ❤️ ❤️ ❤️
Ответы
Ответ дал:
0
Ответ:
3) uses crt;
var a,b:string;
begin readln(a);
readln(b);
writeln(a,b);
end.
Объяснение:
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад