<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}
у меня почему то не открывается
600*800*24=11520000 бит = 1140000 байт = 1406,25 Кб = 11,34 Мб
<em>1</em><span><em> Гб=1024Мб </em></span><em>1Мб=1024Кб 1Кб</em><span><em>=1024 байта </em></span><em>1</em><span><em> байт= 8 бит</em></span>
Program pr3;
var poroda:string;
age,holka:real;
n,i,k:integer;
begin
repeat
write ('Введите количесвто собак на выстовке: ');
readln (n);
until n>0;
k:=0;
for i:= 1 to n do
begin
writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: ');
readln (poroda);
readln (age);
readln (holka);
if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1;
end;
if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k) else writeln ('Боксеров с нужными критриями навыставке не обнаружено');
end.
LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END