Предмет: Информатика,
автор: kataakutenok
Помогите пожалуйста надо к субботе сделать ❤️
Приложения:
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.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: Карина301
Предмет: Українська мова,
автор: anntaktarova2
Предмет: Русский язык,
автор: раовоисврос
Предмет: Окружающий мир,
автор: odilak75
Предмет: Физика,
автор: purpurlive