arturo95
?>

ПО ИНФЕ Найдите ошибки в программе и напишите номер строк. Program zadacha 1; var r, V: integer; Begin Writeln(“введите радиус r”); readln(r); V:=4/3*PI*sqr(r)*r; writeln('объем равен', v:4:2); Readln; end. 2, Определите значения переменных a и b из фрагмента программы: a:=100; b:=30; b:=sqrt(a)+b; a:=int(b/3)

Информатика

Ответы

smnra219

с объяснением написать?

Olifirenko119
№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.
Диана-Николаевна377
Например, мы делаем часто чай.
1. Войти на кухню.
2. Открыть шкаф.
3. Взять чашку. 
4. Поставить ее на стол. 
5. Закрыть шкаф.
6. Взять чайник.
7. Включить газ.
8. Зажечь спичку.
9. Зажечь газ в конфорке с спички.
10. Поставить чайник на огонь.
11. Открыть шкаф.
12. Взять сахарницу.
13. Закрыть шкаф.
14. Открыть ящик. 
15. Взять ложку.
16. Закрыть ящик.
17. Набрать в ложку сахар.
18. Положить сахар в чашку.
19. Положить ложку на стол.
20. Открыть шкаф.
21. Взять пакетик чая.
22. Закрыть шкаф.
23. Положить пакетик чая в чашку.
24. Когда чайник закипел, выключаем конфорку.
25. Берем чайник.
26. Наливаем воду в чашку.
27. Ставим чайник.
28. Берем ложку.
29. Мешаем.
30. Кладем ложку на стол.
31. Пьем. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

ПО ИНФЕ Найдите ошибки в программе и напишите номер строк. Program zadacha 1; var r, V: integer; Begin Writeln(“введите радиус r”); readln(r); V:=4/3*PI*sqr(r)*r; writeln('объем равен', v:4:2); Readln; end. 2, Определите значения переменных a и b из фрагмента программы: a:=100; b:=30; b:=sqrt(a)+b; a:=int(b/3)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

lenarzhaeva
Irina-Tunyan
Vipnikavto58
Сергеевич1907
muz-cd
Исаченко Тераски1181
Svatela37
saltikovaK.S.1482
tatasi
lobanosky162
zaseche99
FATAHOVAMAINA
Styazhkin395
DVOct33
dashakhmeleva6