Question

1)Повторить 14 раз вывод слова Повтор в столбик . 2)Вывести на экран все целые числа из диапазона от 200 до 600, оканчивающую на любую четную цифру. pascallllll

Answer 1

Ответ:

program Ex1;

var

 i: Integer;

begin

 for i := 1 to 14 do

   WriteLn ('Повтор');

  ReadLn;

end.

- - - - - - - - - - - - - - - - - - - - - - - - - - - -

program Ex2;

var

 i: Integer;

begin

 for i := 200 to 600 do

   if i mod 2 = 0 then

     Write (i, ' ');

 ReadLn;

end.

Answer 2

1. Вот столбик с повторениями слова "Повтор":

Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор Повтор

2. Вот все целые числа из диапазона от 200 до 600, оканчивающиеся на любую четную цифру:

200 202 204 206 208 210 212 214 216 218 220 222 224 226 228 230 232 234 236 238 240 242 244 246 248 250 252 254 256 258 260 262 264 266 268 270 272 274 276 278 280 282 284 286 288 290 292 294 296 298 300 302 304 306 308 310 312 314 316 318 320 322 324 326 328 330 332 334 336 338 340 342 344 346 348 350 352 354 356 358 360 362 364 366 368 370 372 374 376 378 380 382 384 386 388 390 392 394 396 398 400 402 404 406 408 410 412 414 416 418 420 422 424 426 428 430 432 434 436 438 440 442 444 446 448 450 452 454 456 458 460 462 464 466 468 470 472 474 476 478 480 482 484 486 488 490 492 494 496 498 500 502 504 506 508 510 512 514 516 518 520 522 524 526 528 530 532 534 536 538 540 542 544 546 548 550 552 554 556 558 560 562 564 566 568 570 572 574 576 578 580 582 584 586 588 590 592 594 596 598 600