Кто смыслит в инфе ! написать программу, позволяющею по последней цифре числа определить последнюю цифру его квадрата. вот примерно я написал, а дальше не ! uses crt; var a, b: integer; begin writeln('bведите a'); readln(a); case b of допишите та буквально 2-3 строки еще без

Uses crt; var a,b: integer; begin writeln('bведите a'); readln(a); b : = a mod 10; b : = b * b; b : = b mod 10; write('последняя цифра квадрата:   '); writeln(b); end. вариант с case: uses crt; var a,b: integer; begin writeln('bведите a'); readln(a); b : = a mod 10; write('последняя цифра квадрата:   '); case b of 0:   writeln(0); 1: writeln(1); 2: writeln(4); 3: writeln(9); 4: writeln(6); 5: writeln(5); 6: writeln(6); 7: writeln(9); 8: writeln(4); 9: writeln(1); end; end.

#include < iostream> using namespace std; int main() { setlocale(0,""); // это что бы на было cout< < "  сижу за решеткой в темнице сырой."< < endl; cout< < "вскормленный в неволе орел молодой,"< < endl; cout< < "мой грустный товарищ, махая крылом,"< < endl; cout< < "кровавую пищу клюет под окном,"< < endl; cout< < "клюет, и бросает, и смотрит в окно,"< < endl; cout< < "как будто со мною задумал одно; "< < endl; cout< < "зовет меня взглядом и криком своим"< < endl; cout< < "и вымолвить хочет: «давай улетим! "< < endl; cout< < "мы вольные птицы; пора, брат, пора! "< < endl; cout< < "туда, где за тучей белеет гора,"< < endl; cout< < "туда, где синеют морские края,"< < endl; cout< < "туда, где гуляем лишь да »"< < endl; return 0; }

Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

program Case6;

var

 N:Integer;

 L:Real;

begin

 Write('Введите номер единицы длинны: ');

 Readln(N);

 Write('Введите длинну отрезка: ');

 Readln(L);

 Case N of

   1: Writeln(L/10);

   2: Writeln(L*1000);

   3: Writeln(L);

   4: Writeln(L/1000);

   5: Writeln(L/100);

 end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program Case6;

var

 N:Integer;

 L:Real;

begin

 Write('Введите номер единицы длинны: ');

 Readln(N);

 Write('Введите длинну отрезка: ');

 Readln(L);

 Case N of

   1: Writeln(L/10);

   2: Writeln(L*1000);

   3: Writeln(L);

   4: Writeln(L/1000);

   5: Writeln(L/100);

 end;

end.