2. var n,s,i:integer; begin writeln ('Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)'); write ('Введите n: '); readln (n); for i:=11 to n do if i mod 2 = 1 then s:=s+i; writeln ('Сумма нечетных чисел от 11 до ',n,' равна ',s) end.
1. var a,b:real; begin writeln ('Программа для решения уравнения ax=b'); write ('Введите a и b: '); readln (a,b); if (a=0) and (b=0) then writeln ('x - любое число') else if (a=0) and (b<>0) then writeln ('решений нет') else writeln ('x = ',b/a) end.
Компьютерная и магнитно-резонансная томография - томографический метод исследования внутренних органов и тканей
Ультразвуковое исследование (УЗИ) - исследование органов и тканей с ультразвуковых волн.
Электронная очередь – это программно-аппаратный комплекс, позволяющий формализовать и оптимизировать управление потоком посетителей. Главная цель системы электронной очереди — целенаправленное направление посетителей внутри организации и получение информации о наиболее востребованных услугах, время их оказания и др.
