Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Здравствуй! Так не кто не делает
Объяснение:
Для ряда вычеслений нужны переменные и типы данных.
Чтобы пользоваться ими необходимо обьявить, а после тспользовать.
Var
a,b,c:real;
begin
a:=3/2+4;
b:=a/3+5;
Похоже на это будет правильнее
Если ты вводишь x также обьяви его, а после будет 3*x/2+4
Строчками для наглядности, чтобв не запутатся. Если так писать будешь то вычеслений не будет
Смотри ответы от меня и после поймешь
program xxx;
s : string;
a : integer;
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
var k, d, n : integer;
pr : boolean;
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
readln
Популярные вопросы