<em>1)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em>begin</em>
<em> read (s);</em>
<em> for i:=1 to length(s) do</em>
<em> begin</em>
<em> if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))</em>
<em> else write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>2)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> if s[1]=' ' then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=1;</em>
<em> end;</em>
<em> for i:=2 to length(s) do</em>
<em> if (s[i]=' ') and (s[i-1]<>' ') then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=i;</em>
<em> end;</em>
<em> for i:=1 to j do</em>
<em> begin</em>
<em> a:=p[i];</em>
<em> p[i]:=0;</em>
<em> while s[a]=' ' do</em>
<em> begin</em>
<em> inc (p[i]);</em>
<em> a:=a+1;</em>
<em> end;</em>
<em> end;</em>
<em> b:=p[1];</em>
<em> for i:=1 to j do</em>
<em> if p[i]>b then b:=p[i];</em>
<em> write (b);</em>
<span><em>end.</em>
<em>3)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> write (s[i]);</em>
<em> while s[i]<>':' do</em>
<em> begin</em>
<em> inc (i);</em>
<em> write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>4)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> while s[i]<>':' do</em>
<em> inc (i);</em>
<em> i:=i+1;</em>
<em> while (s[i]<>':') and (i<=length(s)) do</em>
<em> begin</em>
<em> write (s[i]);</em>
<em> inc (i);</em>
<em> end;</em>
<span><em>end.</em></span></span></span></span>
#include <iostream>#include <cmath>#include <cstdio>using namespace std;int n;int main () { cin >>n;cout <<"The next number for the number " << n <<" is " <<n+1 << '\n';cout <<"The previous number for the number " << n <<" is " <<n-1;return 0;}
Вот код (но лучше с PasteBin'a скопируй: https://pastebin.com/rTP8jeJ5)
import random
import operator
n = int(input("Введите число N: ")) # спрашиваем у пользователя число N
my_dict = dict() # создаём наш словарь
for key in range(1, n + 1): # перебираем все числа от 1 до n (включительно) - это будут будущие ключи словаря,
my_dict[key] = random.randint(1, 1000) # и присваиваем им случайные значения от 1 до 1000 (включительно)
# Выводим три наибольших значения
print("Три наибольших значения:")
top3 = sorted(my_dict.items(), key=operator.itemgetter(1), reverse=True)[:3] # отбираем ТОП-3 элемента
for elem in top3: # и каждый из них
print(": ".join(map(str, elem))) # выводим на экран
Т<span>ехника безопасности в кабинете информатики </span>
Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся, прошедшие инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики.
<span>3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока. </span>
Ради тебя мне пришлось разобраться в паскале
program lol;
var
x,y,a,B: single;
begin
writeln('Введите значение b: ');
readln(B);
writeln('Введите значение a: ');
readln(a);
y := sqrt(256/B*a);
x := (sqr(B)/1.44*sqr(a)) +0.82;
x := x / y;
writeln('Ответ: ', x);
end.
Если тебе нужно разделить уравнение на "(√256) / B * a", то замени строку "y := sqrt(256/B*a);
" на стоку "y := sqrt(256) / B * a". А если тебе нужно именно "√256 / B * a", то ничего заменять не нужно.