Ввещественной переменной y записано некоторое неотрицательное число, не превосходящее 30000. запишите в переменную s сумму первых после десятичной точки трёх цифр числа y. можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.

 пишу для паскаля
readln(n);
z:=trunc(n);
n:=n-z;
for i:=1 to 3 do begin
n:=n*10;
s:=s+trunc(n);
end;
где n искомое число
z число без дробной части
i счетчик

Псевдокод :

Начало

объявление целых переменных a и b

ввод a,b

вывод a+b

вывод a*b

Конец

c# :

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace _1

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.Write("Число a : ");

           int a = int.Parse(Console.ReadLine());

           Console.Write("Число b : ");

           int b = int.Parse(Console.ReadLine());

           Console.WriteLine("Сумма чисел a и b : {0}",a+b);

           Console.WriteLine("Произведение чисел a и b : {0}", a*b);

           Console.ReadKey();

       }

   }

}

PascalABC :

var

 a,b:integer;

Begin

 readln(a,b);

 writeln(a+b);

 writeln(a*b);

End.

Допустим число 123. Нам нужно найти первое, второе и третье его число.
То есть 1,2,3. потом их сложить или перемножить.
Чтобы найти первое число нужно 123 разделить на 100,получиться 1.23,его мы округляем и получаем 1.
Второе мы находим деля 123 на 100,получаем остаток 23, делим остаток на 10 и получаем 2.
Третье число мы находим деля 123 на 10 и получаем остаток.
Потом складываем их или перемножаем.
Пример на  pascal:
//div это делить,mod отстаток
var a,b,c,s: integer;
begin
Write('Введи число: ');
Read(s);
a:= s div 100;
b:= s mod 100 div 10;
c:= s mod 10;
WriteLn('Сумма: '+a+b+c);
WriteLn('Произведение: '+a*b*c);
end.