#include <iostream>
int main()
{
setlocale (LC_ALL,"Russian");
int size;
std::cout <<"Введите кол-во эл. в массиве\n";
std::cin >> size;
int *a = new int[size], *b = new int[size];
std::cout <<"Введите эл. массива A\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> a[i];
}
std::cout <<"Введите эл. массива B\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> b[i];
}
std::cout <<"Сумма эл. массива\n";
for (int i=0; i<size; i++)
std::cout <<(i+1) <<") " <<a[i]+b[i] <<std::endl;
delete [] a;
delete [] b;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
begin
var a := ReadInteger('Возраст Антона:');
var b := ReadInteger('Возраст Бориса:');
var v := ReadInteger('Возраст Виктора:');
if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end;
if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end;
if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end;
if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end;
if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end;
if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end;
if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end;
end.