Написал код на все задачи, кроме восьмой. Писал так, как понял условие, так что не придирайся там слишком))) Весь код ниже:
Объяснение:
{#1}
var a: array [1..100] of integer;
i,s: integer;
zn: string;
begin
s:= 0;
i:= 0;
writeln('answer on question --- |yes = +| |no = -|');
writeln('enter more? --- ');
readln(zn);
while zn = '+' do
begin
i:= i + 1;
readln(a[i]);
s:= s + a[i];
writeln('enter more? --- ');
readln(zn);
end;
writeln('sum = ',s);
end.
{#2}
var a,b,c: integer;
s1, s2: real;
begin
writeln('a = ');
readln(a);
writeln('b = ');
readln(b);
writeln('c = ');
readln(c);
s1:= a*b*c;
s2:= 2*(a*b+b*c+a*c);
writeln('s1 = a*b*c = ',s1:0:3);
writeln('s2 = 2*(a*b+b*c+a*c) = ',s2:0:3);
end.
{#4}
var a: array [1..100] of integer;
i,s: integer;
begin
s:= 0;
for i:= 1 to 20 do
begin
writeln('a[',i,'] = ');
readln(a[i]);
s:= s + a[i];
end;
writeln('sum of elements = ',s);
end.
{#5}
var a: array [1..100] of integer;
i,min: integer;
begin
for i:= 1 to 20 do
begin
writeln('a[',i,'] = ');
readln(a[i]);
end;
min:= a[1];
for i:= 1 to 20 do
begin
if a[i] < min then min:=a[i];
end;
writeln('minimum of elements = ',min);
end.
{#6}
var i: integer;
rez: real;
begin
rez:= 0;
for i:= 1 to 9 do
begin
rez:= i*9;
writeln(i,' * 9 = ',rez:0:0);
end;
end.
{#7}
var y,x: real;
begin
x:= -5;
while (x >= -5) and (x <= 5) do
begin
y:= abs(x) + 2;
writeln('x = ',x:0:1,' --- y = ',y:0:1);
x:= x + 0.5;
end;
end.
{#8}
(8-ая не сделана)
{#9}
var num: integer;
pr,rez: real;
begin
writeln('enter number of floor --- ');
readln(num);
pr:= num/4;
rez:= round(pr);
if pr > rez then rez:= rez + 1;
writeln(rez:0:0,' number of floor');
end.
{#10}
var num: integer;
begin
writeln('enter number --- ');
readln(num);
if num = 5 then num:=num*2;
writeln('number after editing --- ',num);
end.
Відповідь:
#include <conio.h>//для getch();
#include <iostream>//ввод-вывод
void pervoe_zadanie(){
std::string s;
while(1){
std::cout<<"Введите ваше слово:\n";
getline(std::cin,s);
if(s.length()<4)std::cout<<"\nТакое слово слишком короткое для задания , повторите ввод.\n";
else break;
}
std::cout<<"\nСклейка = "<<s[1]<<s[2]<<s[3]<<std::endl<<std::endl;
}
void vtoroe_zadanie(){
std::string original_word="вертикаль",
first_word = original_word.substr(3,2)+original_word[2],
second_word = original_word.substr(0,2)+original_word[3]+original_word.substr(5,2);
std::cout<<"\nОригинальное слово = "<<original_word<<
"\nПервое слово из оригинальной строки = "<<first_word<<
"\nВторое слово из оригинальной строки = "<<second_word<<std::endl<<std::endl;
}
void tretye_zadanie(){
std::string s;
std::cout<<"Введите слово:\n";
getline(std::cin,s);
std::cout<<"Оформленное слово:\n"<<s.insert(0,"").append("")<<std::endl;
}
int main()
{
while(1){
setlocale(LC_ALL, "Russian");
std::cout<<"1)Дано слово. Получить его часть, образованную второй, третьей и четвертой буквами.\n"<<
"2)Из слова вертикаль путем \"вырезок\" и \"склеек\" его букв получить слова тир и ветка\n"<<
"3)Дано слово. Добавить к нему в начале четыре символа \"+\" и в конце — пять символов \"–\"\n"<<
"Чтобы выйти - нажмите на ESC\n";
"Введите номер задания:";
switch(getch()){
case 27:
return 0;
case 49:
pervoe_zadanie();
break;
case 50:
vtoroe_zadanie();
break;
case 51:
tretye_zadanie();
break;
default:
std::cout<<"\nЗадания с таким номером нет\n";
}
}
return 0;
}
Пояснення: