Напечатать перевод температуры из градусов по шкале цельсия (с) в градусы по шкале фаренгейта (f) для значений температуры от 0 0с до 400с с шагом 5 0с. формула перевода f=1,8с+32. паскаль.циклы с условием
Тут есть несколько вариантов, как это можно записать:
Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:
Var N:integer; Begin WriteLn('Введите номер месяца'); ReadLn(N); if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето') else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень') End.
Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.
Var N:integer; Begin WriteLn('Введите номер месяца'); ReadLn(N); N:= N mod 12; if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима') else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето') else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень') End.
Эти же самые условия можно записать иначе: if (N>=0)and(N<=2) then или: if (N>=0)and(N<3) then
Типы:GPRS (мобильные сети по качеству соединения делятся на gprs-internet,edge(2g или gprs 2 поколения), 3g ( 3 поколение соответственно) и LTE (4g), Dial-up (соединение по телефонной линии),Adsl соединание с использованием телефонной линии и utp кабеля с линией от провайдера) и DCP (dynamic connection port) .и всем известный вайфай. Адсл скорость регулируется провайдером.гпрс от качества приема сигнала. В локальрой сети зависит от пропускной сети (4 парный utp позволяет поддерживать скорость 322 Тб/сек, когда 2 пары только 100мб/сек. А так же сетевая картс компьютера обладает разной допустимой скоростью как и utp соответственно. Домашний компьютер логичнее подключать по DCP,ноут по wifi, а школу dial-up
var
C:integer;
begin
C := 0;
while C <= 400 do
begin
writeln('C = ', C, '; F = ', 1.8 * C + 32);
C := C + 5;
end;
readln;
end.