Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
Я так понимаю из задания вы это хотели.
В следующий раз самостоятельно хоть попытайтесь сделать,и приложите ваше решение к вопросу.
#include<iostream>;
using namespace std;
int main()
{
int n;
float height, width,square=0;
cout << "pls enter count rectangle" << endl;
while (true) //Бесконе4ный цикл
{
cin >> n;
if (n <= 10 && n > 0)//как нашли-выходим из цикла
break;
}
cout << "pls enter height" << endl;
cin >> height;
cout << "pls enter width" << endl;
cin >> width;
cout << endl;
for (int i = 0; i < n; i++)
{
square = square + (height * width);
}
cout <<"your answer : "<< square << endl;
system("pause");
return 0;
}
посчитаем количество символов в тексте -38
на кодирование 1 символа идет 1 байт , получается 38 байт
переведем байты в биты: 38*8=304 бита это и есть ответ