В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
долма1
долма1
23.05.2020 21:26 •  Информатика

То Використанням величин»
кості та санітарно-гігієнічних норм.
увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки життєдіяль-
4. Складіть у зошиті блок-схему алгоритму для наведеного фрагмента проекту
(мал. 4.42) і запишіть хід його виконання.
надан
значення 40
надати
Значення 5
повторли поки не
10
S =
надати S
значення
митин ат на 10
5
while S = 10:
S = s – а
а += 10
print(a) )
показати змінну
Мал, 4.42
2. Відкрийте середовище розробки та виконання проектів.
3. Складіть проєкт для малювання квадратів, розміщених поруч, поки периметр
квадрата не перевищує 50 кроків. Довжина сторони першого з них дорівнює а
кроків, а довжина сторони кожного наступного — на 5 кроків більша за довжину
сторони попереднього.
апці у файлі з іменем практична 9.​

Показать ответ
Ответ:
Landess
Landess
10.05.2020 11:59
//Общее сопротивление сети: 
// 1/R = 1/r1 + 1/r2 
// 1/R = (r2+r1)/(r2*r1) 
// R = r2*r1 / (r2 + r1) 
//Закон Ома для участка цепи: 
// I = U/R  

var   
r1,r2,u : integer;   
R,I : real;    

begin 
writeln ('Введите значения сопротивления (r1 r2)'); 
readln (r1,r2); 
writeln ('Укажите напряжение на концах цепи (u)'); 
readln (u);   

R := r2*r1 / (r2 + r1); 
I := U/R;   

//Фактически можно не использовать переменную R 
//А вставить выражение сразу     
//    I := U/( r2*r1 / (r2 + r1) );       

writeln ('Сила тока на участке = ',I); 
end.
0,0(0 оценок)
Ответ:
мериэмс
мериэмс
10.05.2020 11:59
)напиши куда слово встовлять(вначало, вконец, посередине...); 
program z2; 
var s,s1:string; 
a:integer; 
begin 
write('Введите слово: ');read(s1); 
write('Введите строку: ');read(s); 
s:=s+' '; 
a:=length(s); 
writeln(a); 
insert(s1,s,a+1); 
writeln('Преобразованная строка: ',s); 
end. 
2) 
program z1; 
var s:string; 
i,kol:integer; 
begin 
writeln('Введите строку'); 
read(s); 
kol:=0; 
for i:=1 to length(s) do 
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and 
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and 
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol); 
writeln(Kol); 
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота