Задание 1
a)
program pr;
var
s:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
writeln('Введите заданный символ');
readln (c);
for i:=1 to length(s) do if s[i]=c then writeln ('В строке найден заданный символ');
readln;
end.
б)
program pr;
var
s,n:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
i:=1;
while s[i]<>' ' do i:=i+1;
n:=copy(s,1,i-1);
writeln(n);
readln;
end.
в)
program pr;
var
s,n,f:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
i:=1;
while s[i]<>' ' do i:=i+1;
n:=copy(s,1,i-1);
f:=copy(s,i+1,length(s)-i+1);
writeln(n);
writeln(f);
readln;
end.
Задание2
program pr;
var s:string;
begin
s:='Касіу Ясь канюшыну';
delete (s,7,3);
insert ('Слово которое хотите вставить',s,7);
writeln (s);
readln;
end.
Паскаль
Откомпилирован: (Pascal ABC)
program z1;
uses crt;
var
n: integer;
i: integer;
begin
write(' Введите n : ');
readln(n);
for i := 1 to n do
begin
writeln(' Число:',i,' Степень:', i *i);
end;
end.
Си
Откомпилирован: (DEV Cpp)
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>
int main()
{
int n = 0;
printf("\n Vvedite n: ");
scanf("%d", &n);
printf("\n Chislo | Stepen");
for(int i = 1; i < n; i++)
{
printf("\n %5d |%5d ", i, i * i);
}
getch( );
return 0;
}
s = s.upper()
k = 0
for i in range(0,len(s)):
if s.count(s[i])>k: k = s.count(s[i])
print(k)
Пример:
Длинношеееддд
4