var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>
Incert - [инсет]
End - [энд]
На информатике, думаю, допустимо читать так, как видишь)
<span>A = (5 < 10) = true
B = (2 = 2) = true
С = (4 < 2) = false
</span><span>(A and B) or C ↔ (A or C) and (A or not B) </span>⇒
(true and true) or false ↔ (true or false) and (true or not true) ⇒
true or false ↔ true and true ⇒
true ↔ true ⇒
true
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
26+26=52, вот и всё,легко же