#include <stdio.h>#include <iostream>#include <math.h>
int main() {
system("chcp 1251");float perimetr, ploshad, a, b;printf("Введите стороны прямоугольника (a,b): ");scanf ("%f, %f", &a, &b);perimetr = (a+b)*2;ploshad = a*b;printf("\n Периметр равен: %.2f \n Площадь равна: %.2f \n", perimetr,ploshad);
system ("pause");return 0;}
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
Существуют три вида циклов <span>на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; </span>используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.<span>
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) </span>найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until <span> i>45;</span>
write(s);
бег - бог - рог - рок - рак - мак - маг - шаг
1. А.
2. В.
3. В.
4. N = 2^i.
16 = 2^i.
I = 4 бита.
Ответ: А.
5. Б.
6. А.
7. Б.
8. Г.
9. V = H*T*I*K.
T = V/H*I*K = (60*2^23)/22000*16*2 = 15*2^25/2^5*22000 = 3*2^20/4400 = 3 145 728/4400 ~714,9 секунд ~ 11,9 минут ~ 12 минут.
Ответ: Б.
10. N = 2^i.
N = 2^8.
N = 256.
Ответ: В.