решите пожалуйста срочно нужно!!!!! (паскаль)

+ 0 -

Cova007

30 авг. 2016 г., 10:47:11 (7 лет назад)

2задание ТОЛЬКО ДЛЯ ЦЕЛОГО ДВУЗНАЧНОГО

Program 2rughug;

var a,b,c:integer;

begin

writeln('введите число');

readln(a);

b:=a div 10;

c:=a mod 10;

writeln('первая цифра числа',b);

writeln('последняя цифра',c);

end.

+ 0 -

Zarifatimurziev

30 авг. 2016 г., 11:19:43 (7 лет назад)

Задание 1

Program zadanie;

var

  a,suma:integer;

  f:char;

begin

a:=9;

suma:-0;

while a<200 do begin

  inc(a);

  if a mod 7=0 then suma:=suma+a;

end;

writeln('summa=',suma);

writeln('Press any key to programm end');

readln(f);

end.

протестил, у меня прошла.

Первыя задача ДЛЯ ЛЮБОГО ЧИСЛА!!! Не только двухзначного.

Program dva;

var

  a,b,s:integer;

  f:char;

begin

a:=0;b:=0;

Write('vvedite chislo-');readln(s);

if s<10 then writeln('chislo sostoit iz odnoy zifri');

b:=s mod 10;

while s>99 do begin

s:=s div 10;

end;

a:=s div 10;

if a<>0 do begin

writeln('pervaya zifra=',a);

writeln('poslednyaya zifra=',b);    

end;

Writeln;

writeln('press any key to programm end');

readln(f);

end.