Var a:array[1..10] of integer;k,n,i:integer;begin k:=0; n:=0; for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if a[i] mod 13=0 then k:=k+1 else n:=n+1; writeln(k,' ',n); // k-делятся на 13 n-не делятся на13 readlnend.
Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? Ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
Два цикла? Я что-то не вижу таких решений без изменения переменной внутри циклов, что нехорошо. Твою задачу можно по-простому сделать одним циклам и двумя переменными.
Размеры изображения K= 300 х 300 х10 х12= 10800000 пикселей
Информационный объем равен J=K*i
глубина цвета равна 3 байта =3*8=24 бит
J=24 бит * 10800000=2.592*10^8 бит =32400000 байт =31640.6 кБайт=30.9 Mб
Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!