1.Выделение текста.
2.World Pat
3.Вродее Жирный
4.Пробел
5.War
Var s:string;
begin
s:='тестирование';
s:=s[8]+s[9]+s[1]+s[9];
writeln(s);
<span>end.</span>
#include <iostream>
#include <cmath>
int main(){
float y = 0;
float x = 0;
std::cout<<"input x "<<endl;
std::cin>>x;
if(x<13){
y=3*x+5*pow(x,2);
std::cout<<"y = "<<y<<endl;
}
else
y=7*x-sqrt(x+13);
std::cout<<"y = "<<y<<endl;
return 0;
}
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.