Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
#include <iostream>
#include <conio.h>
float mathFunc(float x) {
if (x < 0)
return 2 * x;
else if (x > 0)
return x * x + 10;
return 0;
}
int main() {
setlocale(LC_ALL, "");
std::cout << mathFunc(-1) << " " << mathFunc(0) << " " << mathFunc(1);//проверка
_getch();
return 0;
<span>}
//1
</span>#include <iostream>
#include <conio.h>
int main() {
setlocale(LC_ALL, "");
int year;
while (true) {
system("cls");
std::cout << "Введите год своего рождения:";
std::cin >> year;//год может быть отрицательным => до н.э.
year = 2017 - year;
printf("Вам %d лет,", year);
if (year < 45)
printf("вы молоды");
else if (year < 60)
printf("вы среднего возраста");
else if (year < 75)
printf("вы пожилого возраста");
else if (year > 90)
printf("вы старческого возраста");
<span>_getch();
</span><span>return 0;
}
//2
</span>
Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
Var
i:integer;
a:array[1..11]of integer;
begin
for i:= 1 to 11 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
write('Кратны 2: ');
for i:=1 to 11 do
if a[i] mod 2=0 then write(a[i],' ');
<span>end. </span>
Program points;
uses crt;
var x, y:real;
begin
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x > 0) and (y > 0) then
writeln('<span>Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости</span>')
else
writeln('<span>Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости</span>');
readln
end.