<h3><u>
Ты налажал в схеме:</u></h3>
- в условии пунктов 1 и 2 (пофиксил);
- в пункте 3, там нет никакого оператора присваивания (пофиксил).
<h3><u>
Листинг:</u></h3>
program main;
var k, x, w: integer;
begin
writeln('Введите "k", "x", "w"');
readln(k, x, w);
if (k > 2) or ((x <= 9) and (w >6)) then
if k + x - w > 10 then begin
k := (k-x) * 4;
x := w * k;
if (k >= 6) and (x > 2) then
if (k < x) and (x > w) then begin
x := 4;
writeln(x - k);
end
else begin
x := w;
writeln(K + w);
end
else begin
k := (k + x) * 3;
writeln(k + x)
end;
end
else begin
w := w * x;
x := (k + x) * 2;
if (w > 3) and (x < 20) then begin
w := w * 2;
writeln(x + w);
end
else begin
x := sqr(x);
writeln(x - w);
end;
end
else begin
k := x +w;
w := sqr(w);
if x >= 6 then begin
x := x * 5;
writeln(x + k - w);
end
else begin
if k > 10 then
k := (x + k) * 3
else
w := k * x;
writeln((k + w) * x);
end;
end;
end.
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
А где ты треки фасе будешь хранить?
#include<stdio.h>
int main(){
int n, i, a = 1, b = 1;
scanf("%d",&n); /* 0 < n < 47 */
for(i = 2; i < n; i++) a = (b+=a) - a;
printf("%d",b);
return 0;
}
Убираем 100, дальше считать парами...1+99=100...2+98=100 считайте сколько пар, сумма которых 100 и прибавляете последнюю 100.
49*100=4900
4900+100=5000
плюс средняя цифра 50 останется без пары)
5000+50=5050
или ничего не убирать)
тогда сумма будет
100+1=101
99+2=101..........и т.д.
всего пар будет 100:2=50
50*101=5050