1. Приведите несколько построения строки 'А. Семёнов' из строки s:= 'Семёнов Андрей'
1) s1:=
2) s1:=
3) s1:=
2. Как можно найти вторую букву «с» с начала строки? Напишите программу, которая выведет на экран её номер в исходной строке или 0, если второй буквы «с» там нет.
3. В строке s сначала записана фамилия человека, а затем через пробел – его имя, например, 'Семёнов Андрей'. Запишите операторы, которые позволяют
а) найти номер пробела, разделяющего фамилию и имя, и записать его в переменную p:
б) выделить из строки фамилию и записать её в переменную fam:
в) выделить из строки имя и записать его в переменную name:
г) приписать перед фамилией первую букву имени, точку и пробел, резуль-тат записать в переменную s:
4. Чему будут равны значения переменных n и s после выполнения этих команд?
n:= 12 + 34; n =
s:= '12' + '34'; s =
Как нужно объявить эти переменные в программе?
*/
#include<iostream.h>
#include<conio.h>
#include<math.h>
int main()
{
int b,a, x,y,z;
cout<<"insert a"; cin>>a>>endl;
cout<<"insert b"; cin>>b>>endl;
cout<<"insert x"; cin>>x>>endl;
//а что такое x, y, и z - вообще непонятно. И откуда q появилась? ты ее не
//объявлял.
if ((a%5==0)&&(b%5==0));
{
if ((x<y)&&(y<z))
{y=a*x-b; cout<<"y="<<y<<endl; }
if ((y<x)&&(y<z))
{y=a*y-b; cout<<"y="<<y<<endl; }
}
else cout<<"a i b ne kratny 5";
getch();
return 0;
}
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.