fork download
copy 
  1. program Zadanie;
  2. var i, b, c: integer;
  3. begin
  4. readln(b);
  5. writeln('Первые десять чисел, которые делятся на ', b, ': ');
  6. c := b*10;
  7. for i := 1 to c do
  8. 	if i mod 4 = 0 then 
  9. 		writeln(i);
  10.  
  11. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
4
stdout
copy 
Первые десять чисел, которые делятся на 4: 
4
8
12
16
20
24
28
32
36
40
https://ideone.com/3Hz2Jq
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!