Question

Составить программу.
Вывести на экран числа кратные 14 от F до 8(F>10)

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadInteger('f=').Downto(8).Where(t->t mod 14=0).Println

end.

f= 137

126 112 98 84 70 56 42 28 14

Answer 2

Мне неприятно Ваше отношение, если Вы не поняли.

Answer 3

В любом случае спасибо,я в программирование 0.

Answer 4

Да. Человек написал ерунду, а Вы его поощрили.

Answer 5

Подумайте над этим.

Answer 6

Вы уж не обижайтесь так. Я даже сути задания не понимаю

Answer 7

var F,a:integer;

begin

     while not(F>10) do

     begin

           writeln('F= ');

           read(F);      

     end;

     for a:=F to F*8 do

     begin

         if (a mod 14 =0)  

         then write(a,' ')

     end;      

end.

Answer 8

Так что о своей псевдокрутизне ты своим барышням рассказывай.

Answer 9

> я писал Как-то неважно, что и кто там писал 40+ лет назад. Язык прогрессирует ежегодно. Так что Ваши "достижения" в виде опыта работы с языком тут неуместны.

Answer 10

Извините, что задел Вас так сильно. Но, Вам надо помнить, что на правду не обижаются.

Answer 11

В самом деле думаешь, что ты меня можешь обидеть или хотя бы задеть? Ну-ну...

Answer 12

Кому кому, а мне точно неинтересно было бы выслушивать лепет "40-летнего си-разработчика". До свидания)