<span><em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
<u>Пример</u>
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001</span>
Объем видеопамяти равен 512 Кбайт = 524288 байт = 4194304 битразрешающая способность дисплея 800x600= 480000 точекв одну точку можно "загрузить" -1 цвет= 4194304 бит / 480000 точек = 8,738133333333333 = 8 битзначит количество цветов 2^8=256Ответ 256 цветов
Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a(-1),b(1),h,x1,x2,y1,y2,k,s(0);
int n(2);
do {
k=s; s=0;
for (int j=1; j<=n; j++) {
h=(b-a)/n;
x1=a+h*(j-1); x2=x1+h;
y1=x1*x1; y2=x2*x2;
s=s+(y1*h+y2*h)/2;
}
n++;
if (abs(s-k)<0.01) {
cout << "1" << endl;
break;
}
}
while(n>=0);
cout << s <<endl << n << endl;
return(0);
}
Объединенные сети.
Это значит что сети объеден или в одну огромную и любой может взять из этой огромной семьи все, что найдет