Program yeah;vara,b:integer;beginwriteln('введите числа ');b:=0;repeatread(a);if (a mod 10<>6) and (a div 10<>6) thenbegin b:=b+a;end;until a=0;writeln(b);end.
Ответ:
1) Ввести два числа, сложить, удвоить. Вывести ответ.
2) Ввести число, возвести в квадрат. Вывести ответ. Передайте автору учебника, что у квадрата по определению только ОДНА длина стороны. Сторон четыре, а размер - один.
Объяснение:
-------------------
C / C++:
-------------------
...
int curNum = 4, sum = 0;
while (curNum <= 30)
{
if (curNum % 3 == 0)
sum += curNum;
++curNum;
}
printf("%i", sum);
...
----------------------
PASCAL:
----------------------
var curNum, sum : integer;
begin
curNum := 4;
sum := 0;
while (curNum <= 30) do begin
if curNum mod 3 = 0 then
sum := sum + curNum;
curNum := curNum + 1;
end;
writeln(sum);
end.
Не очень, но много. 1.1 Гб = 1126,4 Мб = 1153433,6 Кб = 1181116006,4 Байт = 9448928051,2 Бит