Обувщик или сапожник, стоматолог, шофёр или водитель
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.
Program Mila37;
var b, m, s, f:integer;
begin
writeln('*******************************');
writeln('* ПРИЁМНАЯ КОМИССИЯ *');
writeln('*******************************');
writeln;
write('введите проходной балл');
readln(b);
write('введите оценку по математике ');
readln(m);
write('введите оценку за сочинение ');
readln(s);
write('введите оценку по физике ');
readln(f);
if m+s+f<b then
begin
writeln('К сожалению, Вы не поступили...');
writeln('Попробуйте снова через год.');
end
else
begin
writeln('Поздравляем!!! Вы поступили ');
writeln(' и зачаслены на I-й курс');
end;
end.
Так как язык указан не был, написал на C++
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
const size_t len = 40;
int arr[40];
for (size_t i = 0; i < len; ++i)
arr[i] = 5 - rand() % (10);
size_t count = 0;
for (size_t i = 0; i < len; ++i)
if (arr[i] > 0)
count++;
cout << count << endl; return 0;
}