#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
float a;
char e;
while (e!='n')
{
cout<<"введите рост танкиста (в сантиметрах) ";
cin>>a;
if (a <= 170)
cout<<"годен в танкисты"<<endl;
else
cout<<"не годен в танкисты"<<endl;
cout<<"ещё раз? (y/n) ";
cin>>e;
}
return 0;
}
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
1. Узнаем сколько байтов в мегабайте:
1Мб=1024*1024=1048576 Байт
2. Найдем 1/64 Мб в Байтах=1048576/64=16384 Байт
3. Получившееся значение умножим на 5
16384*5=81920 Байт
Ответ:81920 Байт
10 минут - 10*60 = 600 секунд.
Размер файла = скорость соединения*время передачи
Размер = 64*600 = 38400 кбайт
1 мегабайт = 1024 килобайт =>
=> размер файла: 38400/1024 = 37,5 мегабайта.
Ответ: 37.5 МБ
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Where(p -> p.IsEven).Println
end.