#include <stdio.h>
#define pi 3.14
int main(void){
double S, h, r;
printf("Введите высоту цилиндра: "); scanf("%f", &h);
printf("Введите радиус: "); scanf("%f", &r);
S = 2.0 * pi * h * r;
printf("Площади боковой поверхности цилиндра равна %.2f", S);
return 0;
}
Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
Под буквой Б, я это вчера сделал
#include <iostream>
#include <array>
int main()
{
std::array<unsigned int, 3> arr;
short int result{0};
for(auto& i : arr)
std::cin >> i;
if(arr[0] == arr[1])
result++;
if(arr[0] == arr[2])
result++;
if(arr[1] == arr[2])
result++;
std::cout << ((result == 0 || result == 3) ? (result) : (++result)) << std::endl;
return 0;
}
Program qq;
uses crt;
var x, y: real;
begin
readln (x, y);
if (x*y)<0 then //проверка четверти, в к-й находится точка
if (x*x+y*y)<=1 then // где x^2+y^2=r^2 - ур-е окружности. точка попадает в круг радиусом 1, если радиус окр-ти на которой она лежит, меньше 1
writeln ('попадает')
else
writeln ('не попадает')
else
writeln ('не попадает');
<span>end.</span>