Все категории

4 года назад

Дано целое число. Определить оканчивается ли оно цифрой 5.

Знания

Информатика

1 ответ:

ТехноДевочка4 года назад

0 0

Uses crt;
var a: integer;
begin
readln(a);
a:=a mod 10;
if a=5 then writeln('Оканчивается') else writeln('Не оканчивается');
end.

Читайте также

Паскаль .вычеркиватели.Вычеркните из слова Х буквы, стоящие на чётных местах.

Андрей Ко [7]

Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.

0 0

4 года назад

Задание 27 и 28!!! Пожалуйста помогите

frutty21

27) вычисляется сумма s=s+A[i], если A[n-i]-A[i] > A[i]

n=10 i=0 A[10]-A[0]>A[0] 100-0>0 - да s=0+0=0

n=10 i=1 A[9]-A[1]>A[1] 90-10>10 - да s=0+10=10

n=10 i=2 A[8]-A[2]>A[2] 80-20>20 -да s=10+20=30

n=10 i=3 A[7]-A[3]>A[3] 70-30>30 да s=30+30=60

n=10 i=4 A[6]-A[4]>A[4] 60 -40>40 нет

n=10 i=5 A[5]-A[5]>A{5} - нет

n=10 i=6 A[4]-A[6]>A[6] 50-60> 60 нет

........................................................ и т.д.

n=10 i=10 A[0]-A[10]>A[10] 0-100> 100 - нет

ответ 60

28) вычисляется s=s+A{i},если A[n-i]-A[i]<A[i] n=10

i=0 20-0<0 -нет

i=1 18-2<2 - нет

I=2 16-4<4 - НЕТ

i=3 14-6<6 - нет

i=4 12-8 <8 - ДА s=0+8=8

i=5 10-10<10 - да s=8+10=18

i=6 8-12<12 - да s=18+12=30

i=7 6-14<14 -да s=30+14=44

i=8 4-16 <16- да s=44+16=60

i=9 2-18< 18 -да s=60+18=78

i=10 0-20<20 - да s=78+20=98 ответ 98

0 0

4 года назад

Информатика R49:=$O32/M$17 V104:=

zaim-26

V104:=O87/P17
Если таблицы нет, то тогда вот ответ

0 0

4 года назад

1itj3ihj1t34123542gew12535g

mishka3002 [25]

Отличный вопрос, друг. Давно я таких интересных задачек не видел

0 0

4 года назад

Даны 2 числа. Большее из этих чисел поделить на 2. Меньшее возвести в квадрат. Вывести сумму этих чисел

androgen33

Var a,b,c:real;
begin
writeln('введите два числа');
readln(a,b);
if a>b then begin
a:=a/2;
b:=sqr(b);
c:=a+b;
writeln(c)
end
else
begin
b:=b/2;
a:=sqr(a);
c:=a+b;
writeln(c);
end;
<span>end.</span>

0 0

3 года назад