Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Блок-схема - в прилагаемом файле.
Программа:
#include <stdio.h>
int main()
{
int s;
for (int i=10; i<=99; i++){
s = i / 10 + i % 10;
if (s*s*s == i*i) printf("%d ",i);
}
return 0;
}
Результат:
27
1)
S:=200;
a:=20;
b:=S / a;
P:=2*(a+b);
2)
P:=100;
a:=10;
b:=(P / 2) - a;
S:=a*b;
3)
S:=36;
a:= sqrt (S);
P:=4*a;
(sqrt - извлечение квадратного корня)
(Попробуйте сами провести вычисления по составленным алгоритмам!)
Повернутися до попередньоі сторінки