<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.
var
a, b, a1, b1, cost, w, h: integer;
begin
readln(a, b, a1, b1, cost);
w := a div a1;
if a mod a1 <> 0 then inc(w);
h := b div b1;
if b mod b1 <> 0 then inc(h);
writeln(w * h);
writeln(w * h * cost);
end.
Var n,k:integer;
begin
writeln('n=',n);readln(n);
k:=0;
while n<>0 do
begin
if n mod 10 mod 2 =1 then k:=k+1;
n:=n div 10;
end;
writeln('k=',k);
<span>end.</span>
Ответ:
program h;
uses crt;
var a, b, c: Integer;
begin
ReadLn(a, b, c);
if a+b+c>=200 then WriteLn('Выходит')
else WriteLn('Не выходит');
end.
Объяснение:
Первая строка: "h" можно заменить - это название программы
var - объявление переменных, Integer - целочисленные
readln - ввод трёх чисел
writeln - вывод ответа
1)Имя файла - выбери любой файл и напиши имя.
2)Нажми на файл правой кнопкой мыши, и нажми расположение файла (если это ярлык). Если в левом нижнем углу нету стрелочки, то выбери другой файл.
3)Нажми правую кнопку мыши, затем свойства, и нажми общие, там ты увидишь размер.
4)Нажми ПКМ (правую кнопку мыши), свойства, общие - и найдёшь дату создания.