Дается целое число. Если это число меньше 20, возведите его в квадрат; в противном случае создайте приложение, отображающее его последнюю цифру. C++

var x,y: real;

begin

  readln(x);

  if x>8 then y:=x/4 else y:=x*5;

  writeln(y);

end.

0   0

0   8

3   5

0   5

3   2

0   2

2   0

2   8

3   7 

путь дедушка станет вдвое старше внучки через х лет. 
2(14 + х) = 56 + х 
28 + 2х - х = 56 
х = 56 - 28 
х = 28 
И никакой логики.

Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).

Program A1;

var a,b,c,i:integer;

begin

write('Enter the a: ');

read(a);

writeln('Enter the b: ');

read(b);

с:=0;

for i:=1 to a Do

     c:=c+b;

writeln('a*b=',c:5:0);

end.

Объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.

i=1      c=5+0;

i=2      c=5+5;

i=3      c=10+5;   //c=15

Вот и есть ответ: 5*3=15.

1.

var s : real := 114.1464;

begin

   writeln (s:6:2);

end.

114.15

2.

begin

   write (6,12,22,200);

end.

61222200

var

   n : integer;

begin

   write('N=');

   readln(n);

   writeln(n mod 60);

end.

С++

#include <iostream>

void main()

{

int mass [5][5];

for (int i=0; i<5;i++)

   for(int j=0; j<5l; j++)

       mass[i][j]=rand()*20-10;

int pn [2];

int nn [2];

for(int i=0; i<5; i++)

   for(int j=i+1; j<5; j++)

       if (mass[i][j]>0)

       {

           pn[0]=i;

           pn[1]=j;

           break();

      }

for(int i=4; i>=0; i--)

   for(int j=i-1; j>=0; j--)

       if(mass[i][j]<0)

      {

            nn[0]=i;

            nn[i]=j;

            break();

       }

swap(mass[pn[0]] [pn[1]], mass [nn[0]] [nn[1]]);

}

program zadacha;
var
n:integer;
begin
read(n);
if n mod 2=1 then
write('Нет')
else
write('Да')
end.

256/1.39= приблизительно 184 дискеты...