Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;
#include <stdio.h>
int main()
{
int days, pay;
printf("Дней в месяце: ");
scanf("%d", &days);
printf("Денег в первый день: ");
scanf("%d", &pay);
for (int i = 1; i < days; i++) {
pay *= 2;
}
printf("В последний день будет выплачено %d рублей\n", pay);
return 0;
}
program raf105;
var i,min,kolN,sumN,sariN:integer;
a:array[1..30] of integer;
begin
writeln('Элементы массива:');
min:=99;
for i:=1 to 30 do
begin
a[i]:= random(1,60);
write(a[i],' ');
if (a[i]<min) and ((a[i] mod 4)=0)
then min:= a[i];
if ((a[i] mod 2)<>0)
then
begin
kolN:= kolN+1;
sumN:= sumN+a[i];
end;
end;
writeln;
if min=99
then min:=0;
sariN:= round(sumN/kolN);
writeln('Минимальное значение среди чётных элементов кратных четырём:');
writeln(min);
writeln('Среднее арифметическое среди нечётных элементов:');
writeln(sariN);
end.
<u><em>Язык программирования PascalABC</em></u>
Предоставлена таблица истинности и построение логической схемы.